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Abstract 

Hamilton’s  Law  is  derived  in  weak  form  for  slender  beams  with  closed  cross 
sections.  The  result  is  discretized  with  mixed  space-time  finite  elements  to  yield 
a  system  of  nonlinear,  algebraic  equations.  An  algorithm  is  proposed  for  solving 
these  equations  using  unconstrained  optimization  techniques,  obtaining  steady-state 
and  time  accurate  solutions  for  problems  of  structural  dynamics.  This  technique 
provides  accurate  solutions  for  nonlinear  static  and  steady-state  problems  including 
the  cantilevered  clastica  and  flatwise  rotation  of  beams.  Modal  analysis  of  beams  and 
rods  is  investigated  to  accurately  determine  fundamental  frequencies  of  vibration,  and 
the  simulation  of  simple  maneuvers  is  demonstrated. 
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Simulation  of  a  Moving 


Elastic  Beam 

Using  Hamilton’s  Weak  Principle 

I.  Introduction 

Multibody  systems  analysis  (MSA)  is  an  analytical  tool  used  to  solve  problems 
of  dynamics  for  complex  mechanical  systems.  Common  implementations  in  software 
represent  a  system  by  a  series  of  rigid  bodies  connected  with  joints,  where  differential 
equations  of  motion  are  coupled  with  algebraic  constraints  and  solved  numerically. 
Rigid  body  motion  is  a  useful  simplifying  assumption  in  mechanics;  however,  it  is  not 
sufficient  for  modern  applications  with  highly  elastic  materials  undergoing  large  mo¬ 
tions.  Some  examples  include  rotor  blades,  flexible  wings  on  aircraft,  elastic  linkages, 
satellites  with  flexible  arms,  and  flapping  wings. 

There  are  many  techniques  for  modeling  the  behavior  of  dynamic  systems  with 
flexible  components.  Chapter  2  highlights  some  of  the  various  numerical  methods 
in  the  literature  and  their  specific  applications.  The  purpose  of  this  research  is  to 
explore  the  use  of  Hamilton’s  Weak  Principle  (HWP)  as  a  unifying  theory  for  the 
dynamic  simulation  of  both  flexible  and  rigid  body  motion.  It  is  intended  to  serve  as 
a  proof  of  concept  by  applying  the  algorithm  to  the  structural  dynamics  of  beams, 
which  extends  directly  to  aircraft  wings,  rotor  blades,  robot  arms,  and  structural 
members  (spars,  stringers,  struts,  etc.).  The  approach  offers  many  advantages:  it 
does  not  require  a  differential  equation  solver,  constraints  are  incorporated  directly 
into  the  problem  with  Lagrange  multipliers,  and  a  finite  element  model  with  simple 
shape  functions  may  be  used. 

There  are  three  tasks  involved  in  this  research.  First,  a  mixed,  space-time,  finite 
element  formulation  for  beams  is  derived  using  Hamilton’s  Weak  Principle.  While 
an  intrinsic  formulation  for  elastic  beams  has  been  developed  in  the  literature  [26], 
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this  work  discretizes  the  resulting  equation  in  space  and  time  with  finite  element 
techniques.  This  process  transforms  a  complex  integral  equation  into  a  system  of 
nonlinear  algebraic  equations  which  are  solved  numerically.  The  mixed  formulation  is 
unique  in  its  inclusion  of  deformations,  momenta,  internal  resultants,  and  generalized 
speeds  and  strains  as  independent  field  variables  which  are  evaluated  simultaneously. 

Next,  an  algorithm  is  developed  to  assemble  and  solve  the  system  of  nonlinear  al¬ 
gebraic  equations  with  existing  optimization  techniques.  The  complete  configuration 
of  the  body  is  determined  at  each  time  step,  resulting  in  a  time  marching  algorithm. 
Finally,  the  solver  is  tested  against  several  problems  of  mechanics  to  evaluate  its  ro¬ 
bustness.  The  second  and  third  tasks  are  iterative,  as  improvements  to  the  algorithm 
are  required  in  order  to  solve  more  complex  problems.  Initially,  static  and  steady- 
state  solutions  to  problems  with  various  degrees  of  complexity  and  nonlinearity  are 
obtained  and  compared  with  exact  solutions  to  verify  accuracy.  Finally,  the  algorithm 
is  used  to  obtain  time  accurate  solutions  to  problems  of  beam  dynamics. 
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II.  Background 

2.1  History  of  Multibody  Systems  Analysis 

The  term  “multibody  system”  refers  to  a  complex  mechanical  system  which 
may  be  represented  by  an  equivalent  model  of  discrete,  interconnected  bodies  [50]. 
Examples  include  automobiles,  machinery,  engines,  robotic  devices,  and  aerospace 
vehicles.  The  individual  components  are  represented  numerically  by  their  material 
and  geometric  properties,  and  are  connected  and  constrained  by  various  classes  of 
joints. 

In  the  1960s,  the  digital  computer  made  numerical  analysis  possible  for  complex 
multibody  systems.  This  led  to  the  development  of  general  purpose  computer  pro¬ 
grams  for  MSA.  However,  the  early  versions  were  limited  to  two-dimensional  systems 
with  open  tree  configurations  (where  a  cut  in  any  component  separates  the  system  in 
half)  [48].  This  limited  the  application  to  systems  which  are  relatively  simple. 

The  ability  to  treat  closed  circuit  systems  as  well  as  three-dimensional  motion 
evolved  in  the  1970s  to  treat  more  complex  systems  such  as  spacecraft.  Research 
was  also  geared  toward  the  simulation  and  design  of  large  scale  systems  whose  com¬ 
ponents  experienced  large  angular  rotations  (turbomachinery,  camshafts,  flywheels, 
etc.).  More  complex  systems  required  the  simultaneous  solution  of  hundreds  to  thou¬ 
sands  of  differential  equations.  Many  computational  techniques  were  developed  for 
this  purpose  using  rigid  body  or  gyrostatic  motion  as  a  basic  assumption  for  individ¬ 
ual  components.  While  no  mechanical  system  exhibits  pure  rigid  body  motion,  this 
assumption  can  simplify  the  problem,  reducing  computational  cost  without  losing 
much  accuracy. 

As  greater  emphasis  was  placed  on  “high-speed,  lightweight,  precision  systems,” 
the  need  to  include  elasticity  in  the  analysis  became  more  important  [50].  Modern 
machinery  operates  at  high  speeds,  high  temperatures,  in  hostile  environments,  and 
is  designed  to  high  tolerances.  Neglecting  deformation  effects  for  these  types  of  sys¬ 
tems  will  lead  to  a  poor  mathematical  representation.  Additionally,  trends  in  the 
aerospace  industry  are  toward  lightweight  structures  and  elastic  materials  capable  of 
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large  deformations.  Enforcing  the  rigid  body  assumption  would  restrict  the  motion 
of  flexible  components  and  invalidate  the  simulation.  A  realistic  math  model  must 
include  the  effects  of  flexibility  in  the  system  equations. 

2.2  Adding  Flexibility  to  System  Components 

Equations  governing  nonlinear,  flexible,  multibody  systems  are  far  more  complex 
than  those  for  rigid  body  motion.  A  rigid  body  can  be  completely  described  by 
a  position  and  orientation  vector,  which  are  propagated  forward  in  time  based  on 
initial  conditions  and  applied  forces  and  moments.  Constraints  imposed  by  joints  can 
be  introduced  with  Lagrange  multipliers.  All  system  information  is  included  in  the 
differential  equations  of  motion  and  the  algebraic  constraints,  which  are  numerically 
integrated  in  time. 

With  flexible  systems,  all  of  the  above  applies  and  more.  A  rigid  body  can 
be  completely  described  by  the  motion  of  a  single  particle  within  the  body  and  its 
position  from  the  center  of  gravity,  but  a  flexible  body  requires  complete  configuration 
data  for  every  material  point  in  the  body.  Because  every  particle  can  move  relative 
to  one  another,  integration  is  required  in  both  space  and  time  to  obtain  complete 
information.  Further  complexities  appear  in  the  geometric  and  material  nonlinearities 
that  can  arise.  Robust  algorithms  are  necessary  to  perform  time  integration  of  these 
types  of  systems  [11]. 

Early  techniques  for  incorporating  flexible  body  dynamics  involved  the  use  of 
floating  reference  frames  [16,  50]  and  hnite  elements  with  convected  coordinate  sys¬ 
tems  [13,32],  Moving  reference  frames  are  attached  to  rigid  body  motion  and  linear 
elastic  deformation  theories  are  applied  to  the  discrete  components  of  the  system.  De¬ 
formations  are  described  relative  to  the  rigid  body  motion  using  these  intermediate 
coordinate  systems.  Software  codes  were  modified  to  include  both  flexible  and  rigid 
bodies,  but  the  early  methods  were  not  well  suited  for  systems  with  large  deformations 
and  sometimes  nonlinear  effects  were  difficult  to  capture  [20]. 
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In  the  1980s,  the  introduction  of  finite  strain  beam  and  rod  theories  and  work 
done  in  nonlinear  beam  kinematics  allowed  for  improved  computational  procedures 
in  multibody  dynamics  [18-20,30,33,52-54].  Downer  et  al.  [20]  presents  one  such 
method  based  on  flexible  beam  finite  elements,  and  achieves  accurate  representations 
of  large  deformations  using  a  mesh  of  8  to  12  beam  elements.  The  code  is  applied  to 
various  beam  maneuvers  to  obtain  simulations.  The  authors  credit  the  success  to  the 
“accurate  computation  of  the  nonlinear  internal  forces”  [20] ,  which  earlier  publications 
mention  as  an  obstacle  to  modeling  flexible  systems  [48].  More  recently,  a  “hybrid” 
finite  element  technique  was  used  by  Hopkins  and  Ormiston  [30]  to  model  nonlinear 
deformation  of  a  helicopter  rotor  blade.  Nonlinear  beam  elements  are  formed  with  a 
moderate  deformation  theory,  and  the  reference  frame  at  the  root  of  each  element  is 
constrained  to  move  with  the  tip  of  its  “parent”  element.  The  authors  achieve  accurate 
representation  of  extremely  large  rotations  (far  more  than  the  normal  operation  of 
a  rotor  blade)  using  a  mesh  of  20  nonlinear  beam  elements.  These  methods,  like 
most  today,  apply  numerical  integration  techniques  to  differential  algebraic  equations 
(DAEs)  to  obtain  solutions. 

2.3  DAE  Methods 

In  general,  there  are  two  methods  for  formulating  the  equations  of  motion  and 
constraints  which  are  required  to  perform  a  dynamic  analysis.  One  method  is  to 
generate  the  differential  equations  in  a  minimum  coordinate  set  form,  which  includes 
only  the  independent  coordinates  of  the  system.  This  can  be  accomplished  using 
constraint  equations  to  eliminate  dependent  coordinates,  or  by  using  only  the  inde¬ 
pendent  coordinates  as  generalized  coordinates  when  deriving  the  equations.  The 
major  cost  is  incurred  during  the  assembly  process.  The  alternative  is  a  maximum 
coordinate  set  form,  which  includes  both  dependent  and  independent  coordinates  as 
generalized  coordinates.  In  this  formulation,  the  constraint  equations  are  appended 
to  the  differential  equations  of  motion  using  Lagrange  multipliers,  which  produces  a 
set  of  DAEs  [38] . 
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Differential  equations  of  motion  are  formed  for  each  component  of  the  system, 
algebraic  equations  are  obtained  from  each  joint,  and  the  set  is  assembled  for  the 
entire  system.  Because  DAEs  constitute  a  stiff  set  of  equations,  they  require  robust 
algorithms  to  solve.  Research  in  the  late  1980s  investigated  the  efficiency,  stability, 
and  robustness  of  various  methods  for  solving  these  equations  [42-44].  Many  com¬ 
mercial  software  codes  used  in  industry,  such  as  ADAMS  [49]  (Mechanical  Dynamics, 
Inc.)  and  DADS  [24]  (Computer  Aided  Design  Software,  Inc.),  use  DAE  solvers  to 
perform  numerical  integration. 

2-4  Hamilton’s  Law 

One  common  criticism  of  DAE  solvers  is  that  they  are  “not  sufficiently  robust 
and  may  fail  to  produce  a  solution  for  some  configurations”  [38].  It  is  not  the  objective 
of  this  research  to  investigate  the  use  or  implementation  of  a  better  DAE  solver,  but 
instead  to  take  an  entirely  different  approach  to  the  problem.  While  most  DAE  solvers 
begin  by  deriving  differential  equations  of  motion  from  Lagrange’s  equation  [1,50], 
the  current  research  begins  with  Hamilton’s  Law  of  varying  action: 


(2.1) 


Here  L  is  the  Lagrangian,  5W  is  the  virtual  work  from  external  forces,  and  the 
generalized  coordinates  are  qk-  Using  an  approach  which  is  described  in  detail  in 
chapter  3,  equations  for  a  beam  are  derived  from  a  weak  form  of  this  equation  and 
reduced  to  a  set  of  algebraic  equations  using  finite  element  techniques.  This  eliminates 
the  need  to  numerically  integrate  a  system  of  DAEs.  Instead,  the  problem  appears 
as  a  system  of  nonlinear  algebraic  equations. 

Bailey  [5,6]  was  the  first  to  demonstrate  that  Hamilton’s  Law  can  be  used  to 
obtain  direct  solutions  to  non-stationary,  non-conservative,  initial  value  problems.  He 
proved  that  this  can  be  accomplished  “without  any  reference  to  or  knowledge  of  differ¬ 
ential  equations”  [6].  Substituting  a  basic  truncated  power  series  for  g,  he  integrated 
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equation  (2.1)  to  obtain  a  system  of  algebraic  equations.  Using  this  technique,  he 
obtained  solutions  for  various  dynamics  problems,  including  particle  motion  [5]  and 
problems  with  rigid  bodies  [7] .  Applying  linear  constitutive  and  kinematic  equations, 
Bailey  further  extended  this  concept  to  problems  of  beam  vibrations  [8].  He  achieved 
accurate  results  using  second  and  third  order  polynomials  as  shape  functions. 

Following  the  initial  work  by  Bailey,  other  authors  began  using  Hamilton’s  Law 
to  solve  problems  in  dynamics.  Riff  and  Baruch  [9]  derived  6n  formulations  of  Hamil¬ 
ton’s  Law  (for  n  degrees  of  freedom)  based  on  various  combinations  of  initial  and 
final  conditions  for  the  state  variations  (Sqk)-  They  used  this  technique  to  obtain 
solutions  to  simple  mass-spring  systems.  Borri  et  al.  [14]  applied  a  standard  finite 
element  approximation  to  (2.1)  with  piecewise  linear  shape  functions  for  the  general¬ 
ized  coordinates.  The  authors  used  the  model  to  analyze  the  response  and  stability 
of  nonlinear  periodic  systems.  Later  work  [15, 29]  demonstrated  that  a  mixed  finite 
element  formulation  (where  generalized  coordinates  and  their  momenta  appear  as  in¬ 
dependent  unknowns)  yields  solutions  with  unconditional  stability  without  having  to 
use  reduced  element  quadrature.  The  current  research  is  also  based  on  a  mixed  finite 
element  formulation. 

While  time  marching  techniques  are  commonly  applied  to  initial  value  prob¬ 
lems,  finite  elements  in  time  are  also  used  in  the  literature  [46,47,51]  to  discretize 
Hamilton’s  Law  and  obtain  approximate  solutions  to  simple  dynamic  systems.  Inter¬ 
polation  polynomials  are  used  to  approximate  the  held  quantities  between  time  steps. 
Otherwise,  the  procedure  is  similar  to  a  time  marching  algorithm  applied  to  an  initial 
value  problem.  Riff  and  Baruch  [47]  use  third-order  interpolation  polynomials  for 
displacements  and  first-order  polynomials  for  the  variation.  The  held  variables  and 
their  variations  are  mutually  independent,  and  appear  as  separate  variables  (a  mixed 
formulation). 

Time  finite  element  discretizations  of  Hamilton’s  Law  work  well  for  particle  and 
rigid  body  motion,  where  only  integration  in  time  is  necessary.  However,  hexible 
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bodies  also  require  spatial  integration  over  their  domain.  A  finite  element  model 
for  such  a  problem  requires  interpolation  polynomials  for  both  the  space  and  time 
domain.  The  result  is  a  simultaneous  boundary  value  problem  in  space  and  initial 
value  problem  in  time.  The  boundary  value  problem  determines  the  configuration  of 
the  body  in  space,  and  the  initial  value  problem  propagates  this  configuration  through 
each  time  step.  This  requires  the  use  of  “space-time”  finite  element  techniques. 

2.5  Finite  Elements  in  Space  and  Time 

Early  concepts  of  space-time  finite  elements  were  developed  by  Oden  [41],  Fried  [22], 
and  Argyris  and  Scharpf  [2],  These  works  are  based  on  Hamilton’s  Principle,  which 
is  a  variation  of  Hamilton’s  Law.  The  same  principles  used  to  discretize  the  spatial 
domain  for  boundary  value  problems  are  applied  to  the  time  domain,  and  the  two 
domains  are  treated  equally  to  achieve  time  accurate  simulations.  Simultaneously 
discretizing  the  space  and  time  domain  sets  this  method  apart  from  previously  used 
semi-discretization  techniques,  where  the  problem  is  discretized  into  finite  elements 
in  space,  reduced  to  a  system  of  ordinary  differential  equations  in  time,  and  marched 
in  time  with  finite  difference  methods  [3,34], 

Bilinear  formulations  are  often  used  in  the  literature  to  construct  space-time 
finite  element  models  [31,45].  ft  allows  for  a  consistent  treatment  of  field  quantities 
across  both  space  and  time  domains.  Peters  and  Izadpanah  [45]  suggest  that  treating 
space  and  time  equally  offers  a  unified  solution  strategy  that  will  improve  computa¬ 
tional  efficiency.  Further  research  [31]  illustrates  that  discretizing  Hamilton’s  Law  in 
this  manner  allows  the  user  to  benefit  from  the  analogy  between  the  “action”  in  the 
time  domain  and  the  energy  in  the  space  domain. 

Several  space-time  finite  element  discretizations  appear  in  the  literature  for 
beam  and  rod  applications.  Grohmann  et  al.  [23]  use  a  time-discontinuous  Galerkin 
formulation  for  Timoshenko  beam  problems.  The  field  quantities  are  continuous  across 
boundaries  of  space  but  discontinuous  between  time  “slabs”.  In  other  words,  conti¬ 
nuity  is  satisfied  between  elements  at  any  given  time,  but  not  guaranteed  between 


consecutive  time  steps  for  any  particular  element.  Atilgan  and  Hodges  [3]  apply  a 
mixed  formulation  to  rods,  beginning  with  the  governing  differential  equations  and 
integrating  by  parts.  This  allows  the  use  of  piecewise  constant  shape  functions  for 
field  variables  and  bilinear  functions  for  variational  quantities.  Integration  produces 
a  system  of  algebraic  equations  which  are  applied  to  a  structured  mesh  of  rectan¬ 
gular  space-time  elements.  Hodges  [28]  presents  an  energy  preserving  algorithm  for 
space-time  finite  elements  in  beams.  Additional  studies  use  unstructured  space-time 
meshes  [34]  and  triangular  elements  [3, 31]  to  solve  problems  of  wave  propagation  in 
rods. 


2. 6  Hamilton’s  Principle 

There  are  many  techniques  for  developing  finite  element  models.  In  this  re¬ 
search,  the  space-time  finite  element  model  is  derived  from  Hamilton’s  Law.  Be¬ 
fore  proceeding  further  one  must  understand  the  difference  between  various  forms  of 
“Hamilton’s  Law”  in  the  literature.  The  trailing  terms  in  equation  (2.1)  represent  the 
variation  of  the  generalized  coordinates  at  the  beginning  and  end  of  the  time  interval. 
Wherever  a  quantity  is  known,  its  variation  will  be  zero.  For  an  initial  value  problem 
(which  is  precisely  what  we  are  trying  to  solve),  the  trailing  terms  in  the  equation 
are  unknown  at  £2,  but  are  zero  for  t\ .  In  the  literature,  however,  it  is  common  to 
enforce  a  stationarity  requirement  at  the  endpoints,  making  the  variation  zero  and 
the  trailing  terms  vanish.  This  results  in  Hamilton’s  Principle: 


(5L  +  SW)  dt  =  0 


(2.2) 


Hamilton’s  Principle  is  well  established  as  a  means  for  developing  differential 
equations  of  motion  for  dynamic  systems  [1,21,40,55].  In  many  MSA  software  pro¬ 
grams,  it  is  the  basis  for  deriving  the  equations  of  motion,  and  numerical  techniques 
are  used  to  solve  the  resulting  set  of  DAEs  [49].  Bauchau  et  al.  [11]  develops  an  algo¬ 
rithm  for  flexible  body  MSA  where  differential  equations  of  motion  are  derived  from 
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Hamilton’s  Principle  and  virtual  work  for  various  types  of  bodies  (cables,  beams,  and 
shells). 

While  useful  for  determining  the  differential  equations  for  a  system  (for  a  DAE 
solver),  Hamilton’s  Principle  cannot  be  used  to  determine  direct  solutions  to  initial 
value  problems  because  of  the  way  it  is  derived.  Unless  the  answer  is  known  in 
advance,  it  is  impossible  to  set  up  the  problem  such  that  the  variation  at  £2  is  zero  [6,9]. 
Therefore,  the  trailing  terms  of  equation  (2.1)  are  necessary  for  accurate  numerical 
simulations  to  initial  value  problems  and  must  be  included. 

Several  authors  point  out  that  the  incorrect  use  of  the  trailing  terms  in  Hamil¬ 
ton’s  Law  will  result  in  convergence  problems  or  incorrect  solutions.  Borri  [14]  notes 
that  the  trailing  terms  should  be  written  as  momenta  (P)  and  not  explicitly  as 
( dL/dq ).  A  mixed  formulation  makes  this  possible.  Peters  and  Izadpanah  [45]  de¬ 
fine  these  terms  as  the  virtual  action  leaving  and  entering  the  system  at  the  space 
time  boundaries.  Virtual  action  is  the  time  integral  of  virtual  work  at  the  spatial 
boundaries,  and  the  spatial  integral  of  “virtual  action  density”  ( P5u )  on  the  time 
boundaries.  Failure  to  account  for  these  terms  is  analogous  to  neglecting  energy 
entering  and  leaving  the  system  while  trying  to  enforce  conservation  laws. 

2.7  Hamilton’s  Weak  Principle 

Hamilton’s  Weak  Principle  is  a  derivation  of  Hamilton’s  Law  (not  Hamilton’s 
Principle)  that  offers  several  advantages  for  initial  value  problems.  Start  with  the 
variation  of  the  Hamiltonian  (H),  which  is  defined  as  follows  [56]: 

H(q,P,t)  =  PTq- L(q,q,t)  (2.3) 

Evaluate  the  variation  of  the  Hamiltonian  and  rearrange  to  solve  for  the  variation  in 
the  Lagrangian  ( SL ).  Substitute  5L  back  into  equation  (2.1),  and  integrate  by  parts 
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to  eliminate  q  and  obtain  the  following  relationship: 


(SqTP  -  SPTq  -5H  +  5qTQ)dt 


6qTP\ttl  +  5PTq\ttl  =  0 


(2.4) 


Here  Hamilton’s  Law  is  expressed  in  the  “weak”  form,  and  is  thus  called  Hamilton’s 
Weak  Principle. 

Using  HWP  as  the  mechanism  for  deriving  the  equations  of  motion  offers  many 
unique  advantages  which  are  applied  in  the  literature.  First,  HWP  generates  a  mixed 
formulation  where  generalized  coordinates  and  momenta  are  independent  held  vari¬ 
ables.  This  formulation  is  well  suited  for  finite  element  approximations,  because  it  is 
geometrically  exact  and  provides  a  more  accurate  solution  for  a  given  level  of  compu¬ 
tational  power  than  a  displacement  formulation  [26]. 

Second,  HWP  eliminates  all  derivatives  of  held  quantities  from  the  equation 
using  integration  by  parts.  Because  there  are  no  derivatives,  only  simple  shape  func¬ 
tions  are  necessary  to  satisfy  C°  continuity  between  elements.  Higher  order  elements 
(p  elements)  could  also  be  developed;  however,  for  general  nonlinear  problems  the  use 
of  crude  shape  functions  is  more  efficient  in  that  it  allows  element  quadrature  to  be 
performed  by  inspection  [29].  Independent  variables  need  only  be  piecewise  continu¬ 
ous,  while  variational  quantities  must  be  continuous  and  piecewise  differentiable.  The 
variational  quantities  will  eventually  drop  from  the  equation  completely. 

Third,  geometric  constraints  are  included  in  the  equation  with  Lagrange  mul¬ 
tipliers  and  the  natural  boundary  conditions  are  contained  explicitly  in  the  equation 
(they  are  the  trailing  terms).  Therefore  all  of  the  information  about  the  system  is 
included  in  a  single  equation.  After  integration  and  separation  by  variational  coef¬ 
ficients,  the  result  is  a  system  of  algebraic  equations.  For  the  present  work,  these 
equations  are  applied  to  space-time  finite  elements.  For  rigid  bodies,  they  may  be 
solved  with  a  time  marching  algorithm. 

The  literature  shows  that  HWP  is  an  effective  alternative  for  generating  numer¬ 
ical  solutions  to  problems  of  dynamics.  A  time  marching  procedure  was  used  in  [45]  to 


11 


demonstrate  accuracy  for  some  simple  problems.  Hodges  [29]  applies  HWP  in  mixed 
variational  form  to  optimal  control  problems  and  nonlinear  initial  value  problems.  He 
also  uses  the  technique  to  develop  exact  intrinsic  equations  for  a  moving  beam  [26], 
a  derivation  which  is  used  extensively  in  this  research. 

Hamilton’s  Weak  Principle  is  suggested  [38]  as  a  unifying  theoretical  basis  for 
MSA  that  includes  both  rigid  and  elastic  bodies.  It  has  been  demonstrated  success¬ 
fully  in  simulations  of  nonlinear  rigid  body  motion  such  as  a  planar  double  pendulum 
and  ballistic  trajectories,  taking  full  advantage  of  the  properties  listed  above  and 
achieving  results  comparable  in  accuracy  to  ODE  solutions  [39].  The  equations  of 
motion  are  developed  with  HWP,  constraints  are  appended  with  Lagrange  multi¬ 
pliers,  and  the  system  is  discretized  with  simple  shape  functions  to  generate  fully 
algebraic  equations  with  displacements  and  momenta  as  independent  variables.  The 
same  technique  is  used  in  this  research,  only  additional  held  quantities  such  as  strains 
and  internal  forces  appear  in  order  to  account  for  flexible  body  motion. 

2.8  Context  of  the  Current  Work 

The  goals  of  the  current  research  are  to  develop  a  space-time  finite  element 
model  using  HWP  and  achieve  time  accurate  simulations  of  a  moving,  elastic  beam. 
This  is  inherently  an  initial  value  problem  in  time  and  a  boundary  value  problem  in 
space,  containing  differential  equations  of  motion  and  algebraic  constraints.  Many 
approaches  have  been  used  over  the  last  30  years  to  solve  this  type  of  problem.  The 
goal  is  to  achieve  success  using  a  different  method. 

Most  MSA  programs  are  based  on  differential  equation  theory  and  use  numerical 
integration  with  DAE  solvers.  Much  research  has  gone  into  improving  the  accuracy 
and  robustness  of  these  methods.  Yet  they  are  still  not  sufficiently  robust  for  certain 
types  of  aerospace  applications.  An  alternate  approach  is  offered  through  HWP  which 
has  not  yet  been  fully  explored.  By  using  energy  (or  action)  principles  rather  than 
differential  equations,  and  integrating  by  parts  to  eliminate  derivatives  and  “weaken” 
the  problem,  HWP  allows  an  approach  where  DAEs  do  not  appear.  While  it  has 
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been  used  for  various  finite  element  techniques  and  has  been  proven  to  obtain  direct 
solutions  to  rigid  body  motion,  time  accurate  simulations  of  flexible  beam  problems 
using  HWP  have  not  yet  been  performed.  This  may  offer  a  unified  theory  for  MSA 
programs. 
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III.  Theory 


The  purpose  of  this  chapter  is  to  provide  the  reader  with  a  summary  of  the  theory 
used  in  obtaining  solutions  for  moving,  elastic  beam  problems.  The  first  half  focuses 
on  the  theory  used  to  derive  the  model,  and  the  second  deals  with  the  algorithm 
for  solving  the  equations.  The  basic  geometry,  reference  frames,  conventions,  and 
assumptions  are  established  first.  Next,  the  kinematic  and  constitutive  equations  of 
the  beam  are  written.  Energy  expressions  are  derived  for  kinetic  energy,  potential 
energy,  and  the  virtual  work  due  to  external  forces.  The  energy  expressions  are 
substituted  directly  into  Hamilton’s  Law  and  the  kinematic  equations  are  appended 
to  it  with  Lagrange  multipliers.  The  resulting  equation  is  discretized  in  space  and 
time  into  a  mixed  finite  element  model,  which  produces  a  system  of  nonlinear  algebraic 
equations.  These  equations  are  solved  numerically  using  unconstrained  optimization 
techniques  to  obtain  solutions  for  various  classes  of  problems. 

3.1  Conventions 

All  vector  quantities  are  designated  by  a  subscript  which  indicates  the  basis  of 
that  vector.  Superscripts  in  front  of  derivatives  indicate  which  frame  the  derivative 
is  taken  in.  The  absence  of  a  superscript  indicates  that  the  derivative  is  taken  in  the 
vector’s  reference  frame.  The  cross  product  operator  (~)  is  used  to  represent  a  vector 
whose  measure  numbers  are  placed  into  a  skew  symmetric  matrix  as  follows: 


0  —  A3  A  2 

A—  A3  0  -A 


(3.1) 


—A  2  A\  0 


Extensive  use  of  this  operator  appears  in  the  derivation,  including  the  following  prop¬ 
erties: 


AB  =  BA  +  AB 


AB  =  -BA 


(3.2) 

(3.3) 
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A  vector  denoted  with  a  hat  (g)  represents  a  quantity  that  is  defined  at  a  discrete 
boundary  of  an  element,  while  a  bar  (q)  represents  a  quantity  that  is  defined  within 
the  domain  of  the  element.  The  operator  (<5)  represents  the  variation  of  a  function, 
except  when  it  is  written  with  a  bar  (5q),  where  it  indicates  a  virtual  quantity. 

3.2  Assumptions 

In  [26],  Hodges  uses  HWP  to  develop  the  exact,  intrinsic  equations  for  a  moving 
beam.  This  research  uses  the  same  process  for  developing  the  beam  equation.  The 
beam  and  its  properties  are  generalized  to  a  one-dimensional  reference  line.  For  thin 
beams  with  closed  cross  sections  and  moderate  curvature,  a  simple  2-D  cross-sectional 
analysis  will  determine  the  constitutive  properties  [4] .  The  advantage  of  this  approach 
is  that  equations  may  be  written  for  a  beam  of  arbitrary  cross  sectional  properties 
along  its  length. 

The  equations  developed  here  are  valid  for  beams  with  closed  cross  sections 
where  warping  is  unrestrained.  The  in-  and  out-of-plane  warping  displacements  do 
not  need  to  be  considered  explicitly  in  the  one  dimensional  analysis,  but  their  effects 
are  included  implicitly  in  the  structural  equations  [26,28].  Warping  displacements  are 
small  and  thus  ignored  in  developing  the  kinematic  equations. 

It  is  assumed  that  a  constitutive  law  may  be  written  in  terms  of  generalized 
strains  alone.  The  strain  energy  per  unit  length  depends  on  geometric  and  material 
properties.  It  is  shown  by  Danielson  and  Hodges  [18]  to  be  a  nonlinear  function  of 
strains,  which  are  in  turn  nonlinear  functions  of  displacements.  Geometric  stiffness 
due  to  this  nonlinearity  must  be  handled  separately  (he.  open  cross  sections  and 
trapeze  effect). 

3.3  Coordinate  Reference  Frames 

Three  different  reference  frames  (or  bases)  for  vectors  are  used  in  the  analysis: 
A,  B ,  and  b.  The  A  frame  is  known,  and  its  motion  relative  to  an  inertial  frame  is 
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also  known.  For  this  research  the  A  frame  is  treated  as  an  inertial  frame  to  eliminate 
excessive  coordinate  transformations.  However,  any  number  of  arbitrary  frames  can 
be  added  provided  that  A  can  be  traced  back  through  them  to  the  inertial  frame. 
The  b  frame  is  a  coordinate  system  that  moves  with  the  undeformed  beam,  and  the 
B  frame  is  attached  to  beam  after  deformation. 

Figure  3.1  shows  the  geometry  of  the  beam  with  bases  b  and  B  attached  to  their 
respective  cross  sections.  The  direction  cosine  matrix  which  transforms  vectors  from 
bases  b  to  B  is  CBb.  This  matrix  is  a  function  of  the  beam  reference  line,  varying  along 
the  length  of  the  beam  due  to  its  curvature.  In  the  b  reference  frame,  b\  always  points 
in  the  direction  of  the  beam’s  longitudinal  axis.  The  vectors  62  and  63  are  orthogonal 
to  each  other  and  parallel  to  the  face  of  the  cross  section.  The  basis  vectors  for  B  are 
similar,  except  that  B\  is  not  necessarily  parallel  to  the  deformed  beam’s  axis.  This 
vector  is  always  normal  to  the  deformed  cross  section  at  the  reference  line,  which  may 
not  coincide  with  the  reference  line  when  warping  is  present. 


3.4  Rotation  Parameters 

Weiner-Milenkovic  parameters  [12]  are  used  to  describe  the  angular  deformation 
(twist  and  bending)  that  occurs  between  the  b  and  B  reference  frames.  These  rotation 
parameters  are  chosen  because  the  singularity  exists  at  27r ,  and  this  is  unlikely  to  be 
encountered  for  problems  of  beam  dynamics.  The  following  relationships  are  used: 


CBb 

HBb 

PB/b 


(. HBb)(HBb)~T 

(2 PB/b  +  \pTB/bPB/b)[I}  ~  2pB/b  +  \pB/bPB/b 


(4  -  PB/b Y 

1  T 

2  -  g  PB/bPB/b 


(3.4) 

(3.5) 

(3.6) 


In  these  equations,  HBb  is  the  three-by-three  rotation  parameter  matrix  and  is  dis¬ 
tinguishable  from  Hb  (the  angular  momentum)  by  its  superscripts.  The  rotation 
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parameters  are  the  measure  numbers  of  the  vector  ps/b  and  contain  the  angular  de¬ 
formation  information. 

For  small  angles  and  bending  about  one  axis,  accurate  slope  information  is  ob¬ 
tainable  directly  from  the  Weiner- Milenkovic  parameters  ( ps/b )•  However,  for  prob¬ 
lems  with  large  deflections  and  rotations  these  parameters  must  be  converted  to  either 
Euler  angles  or  Euler  rotation  parameters  to  get  a  geometrically  correct  interpretation 
of  the  slope  ( 9 ).  Using  the  direction  cosine  matrix,  the  Euler  angles  are  determined 
as  follows: 


9  =  cos”1(C,33)  (3.7) 

*  = sin_1  (sm)  (38) 

* = sin~‘  (s|j)  (3'9) 

The  inverse  cosine  function  will  only  return  a  value  between  0  and  n  (first  and  second 
quadrants).  For  deformations  greater  than  7 r,  the  function  will  return  an  incorrect 
value.  One  fix  is  to  subtract  this  value  from  2n  whenever  the  rotation  is  known  to  be 
greater  than  180  degrees.  The  other  option  is  to  use  Euler  rotation  parameters: 


0  =  4  tan  1  (jV/K1)2  +  P(2)2  +  P(3)2J 

(3.10) 

U(1)  4  tan© 

(3.11) 

4  tan© 

(3.12) 

M(3)  4  tan© 

(3.13) 

Here,  0  gives  the  rotation  angle  about  the  vector  u,  which  is  parallel  to  the  axis  of 
rotation  for  bending  about  a  single  axis.  The  inverse  tangent  function  returns  a  value 
between  — 7t/2  and  7t/2,  but  when  this  information  is  combined  with  the  direction  of 
u  the  complete  slope  information  is  available. 
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Hodges  derives  a  space-time  finite  element  algorithm  for  beams  where  neither 
displacement  nor  rotation  variables  appear,  using  generalized  forces,  moments,  and 
strains  [28] .  The  advantage  of  this  approach  is  that  the  maximum  order  of  nonlinearity 
is  reduced  to  two.  If  displacement  and  rotation  variables  appear  in  the  formulation, 
there  is  no  limit  to  the  degree  of  nonlinearity  in  the  solution  unless  Euler  parameters  or 
the  direction  cosines  are  used  as  variables.  However,  this  adds  more  unknowns  to  the 
problem,  and  therefore  more  Lagrange  multipliers  are  necessary  in  the  formulation. 
This  approach  results  in  a  mixed  formulation  that  is  very  similar  to  the  one  derived  in 
the  current  research.  Eliminating  rotation  parameters  entirely  or  using  the  direction 
cosines  directly  as  variables  are  both  alternative  approaches  that  are  not  used  here, 
but  are  possible. 

3.5  Beam  Geometry 

The  geometry  of  the  beam  before  and  after  deformation  is  shown  in  Figure  3.1. 
The  reference  line  r  follows  the  undeformed  beam’s  longitudinal  axis,  where  X\  is 
the  length  along  this  line  to  the  point  of  interest.  Likewise,  R  is  the  same  reference 
line  after  deformation,  and  the  length  along  this  line  to  the  same  material  point  is  s. 
The  vector  f  denotes  the  position  of  a  point  on  the  reference  line  of  the  undeformed 
beam,  and  it  is  a  function  of  X\ ,  while  R  is  the  position  vector  of  the  same  point 
after  deformation  and  is  a  function  of  s.  The  displacement  vector  u  is  the  difference 
between  these  two  vectors,  giving  the  total  displacement  (translation)  of  the  section. 
Twisting  and  bending  deformations  are  captured  in  the  direction  cosine  matrix  ( CBb ). 

Let  r] 4  represent  the  position  of  an  arbitrary  material  point  in  the  undeformed 
beam,  and  R*A  be  the  location  of  the  same  material  point  after  deformation.  The 
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following  expressions  are  used  to  define  the  position  in  the  deformed  basis  [26]: 

rb  =  rb  +  £,b  =  H  +  x2b2  +  £363  (3-14) 

Rb  =  CBb(rb  +  ub)  (3.15) 

R*b  —  Rb  +  CBb(^b  +  w  b)  —  Rb  +  X2B2  +  X3H3  +  WjBi  (3.16) 

In  these  equations,  £&  gives  the  position  of  a  material  point  in  the  beam  with  respect  to 
the  reference  line.  It  is  always  parallel  to  the  cross  section,  and  is  of  the  form  [0,  X2,  £3]. 
Cross-sectional  warping  is  designated  by  WiBi.  Any  point  in  the  undeformed  beam 
is  reached  by  moving  on  the  reference  line  to  the  cross  section  (rb),  then  along  Ub  to 

the  deformed  reference  line,  then  through  £5  to  the  point  in  the  cross  section,  then 

along  Wb  to  account  for  warping,  and  finally  transforming  to  the  B  frame  with  CBb. 
While  it  is  necessary  to  determine  the  warping  in  order  to  pinpoint  the  location  of 
any  material  point  in  the  beam  after  deformation,  this  is  trivial  to  the  analysis,  which 
only  requires  knowledge  of  the  point  on  the  reference  line  and  the  properties  of  the 
cross  section. 


19 


3.6  Beam  Kinematics 


Using  the  geometry  defined  in  the  previous  section,  the  kinematics  of  the  beam 
are  now  developed  to  establish  strain- displacement  and  strain- velocity  relationships. 
Begin  by  writing  an  expression  for  the  inertial  velocity  of  a  material  point  in  the 
beam: 

1  R-b  =I  T b  ub  V1  £b  V1  wb  (3.17) 

The  third  and  fourth  terms  are  due  to  warping  and  are  negligible  in  the  analysis  [26] . 
The  first  two  terms  will  be  evaluated  further  to  determine  an  expression  for  the 
velocity  of  the  beam  in  its  deformed  basis  (VB). 

Vb  =  Cm(rRD 

VB  =  CBb(Ih  +Iub) 

Vb  =  CBb(^rb  +  o’;,  x  -\-b  iib  +  uib  x  Ub ) 

VB  =  CBb(vb+b  Ub  +  WbUb)  (3.18) 

Here,  Vb  is  the  inertial  velocity  of  a  point  in  the  undeformed  reference  frame.  It  is 
a  known  quantity  that  is  prescribed  by  the  user  in  the  algorithm.  Likewise,  u>b  is 
the  inertial  angular  velocity  of  the  undeformed  beam,  and  is  also  prescribed  in  the 
problem.  The  angular  velocity  of  the  deformed  beam  (11b)  is  determined  using  the 
inertial  angular  velocity  of  the  undeformed  beam  (u;&)  and  the  time  derivative  of  the 
rotation  matrix  [26,37]: 


Hb  =  -CBACAB 
c ub  =  -CbACAb 

ClB  =  -CBbCbB  +  CBbubCbB  (3.19) 

Equations  (3.18)  and  (3.19)  are  used  to  completely  describe  the  velocity  of  the  beam 
in  the  deformed  frame.  They  include  deformations  due  to  “rigid  body”  motion  and 
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the  additional  motion  due  to  strain.  The  angular  velocity  is  also  written  in  terms  of 
rotation  parameters: 


nB  =  HBbpB/b  +  CBbiob  (3.20) 

Next,  the  strain-displacement  relationships  are  developed.  The  engineering 
strain  is  defined  in  [18],  using  generalized  force  and  moment  strains.  Force  strains, 
due  to  axial  and  shear  forces,  are  represented  by  7.  Moment  strains,  due  to  torsion 
and  bending,  are  designated  with  k.  The  curvature  of  the  deformed  beam  is  KB ,  and 
the  curvature  of  the  undeformed  beam  is  kb. 


lb  =  CbBR'B-r'b  (3.21) 

Kb  =  CbBKB  -  kb  (3.22) 

Here  the  ()'  represents  a  derivative  with  respect  to  X\1  and  is  taken  in  the  A  frame. 
The  curvatures  can  be  found  with  the  following  relationships  [18]: 

Kb  =  -(CBA)'CAB 

h  =  ~(cBAycAB 

KB  =  -{CBi)'CbB  +  CBbkbCbB  (3.23) 

Because  curvatures  are  defined  as  the  change  in  twist  (KBl )  or  slope  (KB2,  Km)  per 
unit  length,  their  definitions  come  from  spatial  derivatives  of  the  direction  cosine 
matrices,  whereas  the  angular  velocities  (which  are  analogous)  come  from  the  time 
derivatives  of  these  matrices.  Note  the  similarity  between  (3.19)  and  (3.23). 

For  force  strains,  the  tangent  vector  of  the  deformed  beam  is  transformed  into 
undeformed  coordinates  and  the  original  tangent  vector  is  subtracted  from  it.  The 
moment  strain  is  determined  by  subtracting  the  curvature  of  the  undeformed  beam 
from  that  of  the  deformed  beam.  Hodges  [26]  presents  several  forms  of  these  strains, 
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the  simplest  being: 


7 b  =  CBb(e i  +  u'b  +  kbub )  -  ei  (3.24) 

=  ATS  -  kb  (3.25) 

where  ei  is  the  unit  vector  [1,  0,  0].  These  are  the  definitions  that  will  be  used  for  the 
generalized  strains  throughout  this  document.  The  curvature  can  also  be  written  in 
terms  of  rotation  parameters: 


KB  =  HBb(pB/by  +  CBbh  (3.26) 

3.7  Virtual  Displacements  and  Rotations 

Equations  of  motion  are  intrinsic  when  no  displacement  or  orientation  variables 
appear  in  them  [27].  Instead,  generalized  coordinates  are  used.  Let  q  represent  a 
generalized  displacement,  and  if)  represent  a  generalized  rotation.  It  is  also  possible 
to  derive  kinematics  and  dynamics  from  Hamilton’s  Law  without  introducing  spe¬ 
cific  rotational  coordinates  (orientation  angles),  so  that  the  user  may  choose  which 
parameters  to  use.  In  order  to  proceed  further,  it  is  necessary  to  define  virtual  dis¬ 
placements  and  rotations.  Let  the  virtual  displacement  be  defined  as  the  variation  in 
the  displacement: 

5q  =  5ub  (3.27) 

When  the  5q  appears  with  a  bar,  it  is  used  to  represent  a  virtual  quantity  and  not  an 
operator  associated  the  variation  of  a  function.  Likewise,  the  virtual  rotation  (Sip)  is 
defined  as  [37]: 

S^B  =  _ SCBbCbB  (3.28) 

In  the  following  section  these  definitions  will  be  used  to  develop  generalized  speeds 
and  strains  and  their  variations. 
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3.8  Generalized  Speeds  and  Strains 

The  purpose  of  this  section  is  to  develop  expressions  for  the  variation  in  gen¬ 
eralized  speeds  and  strains.  Note  that  the  variation  in  Kb  is  equal  to  the  variation 
in  Kb  since  the  undeformed  curvature  is  known  and  its  variation  is  zero.  Therefore, 
most  calculations  will  involve  the  use  of  Kb  in  lieu  of  k,  and  for  problems  with  initial 
curvature  the  moment  strain  may  be  determined  using  equation  (3.25).  Begin  by 
taking  the  variation  of  the  speeds  and  strains  using  Kirchoff’s  Kinetic  Analogy: 


skb  =  s(cBbycbB  -  (cBbyscbB  +  scBbkbcbB  +  cBbkbscbB  (3.29) 

S'jB  =  8CBb(e  1  +  u'b  +  kbub )  +  CBb(8u'b  +  kb8ub)  (3.30) 

8nB  =  —5CBbCbB  -  CBb5CbB  +  8CBbujbCbB  +  CBbCjb5CbB  (3.31) 

5Vb  =  8CBb{yb  +  ub  +  Lobub )  +  CBb(5iib  +  ujb5ub )  (3.32) 


Next,  take  the  derivatives  of  the  virtual  displacements  and  rotations  in  space  and 
time: 


UB  =  -b[cBhychB  -  scBb(cbBy  (3.33) 

S^B  =  -5CBbCbB  -  5CBbCbB  (3.34) 

SqB  =  (< CBb)'5ub  +  CBb5u'b  (3.35) 

t^B  =  CBb8ub  +  CBb5iib  (3.36) 

Rearrange  (3.33)  and  (3.34)  to  get  the  following: 

s(cmycbB  =  8^b  +  scBb(cbBy  (3.37) 

SCBbCbB  =  -I^B  -  5CBbCbB  (3.38) 
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Use  (3.37)  and  (3.38)  to  eliminate  the  first  terms  from  (3.29)  and  (3.31): 


6Kb  =  8i 4  +  5CBb(CbBy  -  (CBb)'8CbB  +  8CBbkbCbB  +  CBbkb8CbB  (3.39) 

6Qb  =  Mb  +  8CBbCbB  -  CBb8CbB  +  8CBbCobCbB  +  CBbCob8CbB  (3.40) 

Using  the  definitions  of  curvature  (3.23)  and  angular  velocity  (3.19),  rearrange  to  get 
the  derivatives  of  the  rotation  matrix  CBb: 

( CBbY  =  CBbkb  -  KBCBb  (3.41) 

(jBb  =  fjBb^  _  QB(jBb  (3.42) 

Use  these  relationships  to  eliminate  derivatives  of  the  direction  cosine  matrix  from 
(3.39)  and  (3.40): 

SKb  =  j4b  +  SCBb(CBb~kb  -  KBCBb )  -  (CB%  -  KBCBb)8CbB 

+  SCBbkbCbB  +  CBbkb8CbB  (3.43) 

SQB  =Mb  +  8CBb{CBbCob  -  klBCBb)  -  ( CBbuh  -  klBCBb)5CbB 

+  8CBbubCbB  +  CBbujb8CbB  (3.44) 

From  the  definition  of  virtual  rotations: 

8CBb  =  -MBCBb  (3.45) 

8CbB  =  CbB8^B  (3-46) 
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When  substituted  into  (3.43)  and  (3.44),  variations  in  the  direction  cosine  matrices 
are  eliminated: 


5Kb  =  S^B  +  5i/jBCBbkbCbB  -  8ipBCBbCbBKB  -  CBbkbCbB5i> 

+  kBcBbcbBJ$B  -  BcBbkbcbB  +  cBb~kbcbBMB 

SkB  =  5$b-  MbKb  +  kjMB  (3.47) 

Applying  a  similar  procedure  with  8QB  yields  the  following  equation: 

8klB  =  S'tp  B  —  5'i8BClB  -\-  klB8il>B  (3.48) 

Next,  apply  the  cross  product  property  defined  in  (3.3)  to  obtain: 

kjMB  =  MBkB  +  kjMB 
VtB8^B  =  8i>B&B  +  klB8ipB 

This  produces  equations  for  the  generalized  angular  speeds  and  moment  strains: 

5Kb  =  Ji,'B  +  KjMb  (3-49) 

5VLb  —  84>b  +  &B8ipB  (3.50) 

Next,  expressions  are  derived  for  generalized  speeds  and  force  strains.  Rear¬ 
ranging  (3.35)  and  (3.36)  and  replacing  5ub  with  CbB5qB\ 

CBb5u'b  =  JqB  -  {CBb)'CbBTqB  (3.51) 

CBb8u  =  tqB-  CBbCbBTqB  (3.52) 

The  first  term  inside  parenthesis  in  (3.32)  is  simply  Vb,  and  the  first  term  inside  the 

parenthesis  of  (3.31)  can  be  written  as  (e.\  +  jb).  Replacing  5CBb  with  its  definition 
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from  (3.45)  and  substituting  (3.51)  and  (3.52),  the  following  is  developed: 

SVB  =  SCBbVb  +  CBb(5ub  +  ub8ub ) 

SVB  =  -8$BCBbVb  +  tqB-  CBbCbBTqB  +  CBbubCbBTqB 
81b  =  8Cm{e1  +  u[  +  kbub)  +  CBb(5u'b  +  kb8ub) 

81b  =  -%(ei  +  7b)  +  SqB  ~  ( CBb)'CbBTqB  +  CBbkbCbBTqB  (3.53) 

Next  replace  CBb  and  ( CBb )'  with  their  definitions: 

8Vb  =  VpMb  +  tqB  ~  ( CBbCob  -  &BCBb)CbBTqB  +  CBbubCbBTqB 

81b  =  (g,  +  7 b)8^b  +  TqB  -  ( CBbkb  -  KBCBb)CbBTqB  +  CBbkbCbBTqB  (3.54) 

Finally,  simplify  these  expressions  further  to  obtain  the  definitions  of  generalized 
speeds  and  force  strains: 

8VB  —  8qB  +  VbS'i/jb  +  £LB8qB  (3.55) 

8^3  =  8qB  + (e1  +  jB)8'ijjB  + KB8qB  (3.56) 

3.9  Kinetic  and  Potential  Energy 

Hamilton’s  Law  requires  the  definition  of  kinetic  and  potential  energy  for  the 
system.  Let  dT  represent  the  kinetic  energy  of  an  infinitesimal  area  of  a  cross  section. 
The  kinetic  energy  (T)  of  a  cross  section  of  the  beam  (energy  per  unit  length)  may 
be  defined  as  [38]: 

T  =  fAdT  =  l-mVl VB  -  mnTBVB£B  +  UlTBmB  (3.57) 

Here,  m  represents  mass  per  unit  length  and  /  is  the  mass  moment  of  inertia  matrix 
for  the  section  of  the  beam.  The  location  of  the  center  of  mass  from  the  reference  line 
is  In  general,  the  reference  line  passes  through  the  centroid  and  this  term  is  zero. 
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In  order  to  develop  intrinsic  equations  using  Hamilton’s  Law,  the  kinetic  energy  will 
be  written  as  a  function  of  generalized  speeds,  and  its  variation  is  evaluated  using 
Kirchoff’s  Kinetic  Analogy  and  the  chain  rule: 


T 


T 


ST  =  SV% 


(3.58) 


Likewise,  the  potential  energy  per  unit  length  (U)  is  defined  using  the  concept  of  strain 
energy.  The  definition  of  strain  energy  is  dependent  on  the  constitutive  equations  of 
the  solid,  but  in  general  is  a  function  of  the  strains.  Therefore,  a  definition  can  be 
written  using  the  chain  rule  to  get  the  variation: 


(3.59) 


The  values  in  parenthesis  will  remain  in  general  form  for  the  present,  since  they  are 
dependent  on  the  problem. 

Gravity  is  a  contributor  to  potential  energy,  although  its  contribution  to  the 
problem  could  be  incorporated  using  virtual  work.  Introducing  it  here  allows  gravity 
to  be  turned  on  or  off  in  the  algorithm  by  specifying  a  gravitational  vector  (gs)-  For 
scenarios  with  long,  flexible  beams  under  light  loads,  the  influence  of  the  beam’s  own 
weight  can  play  a  large  factor.  There  are  other  scenarios  where  gravity  should  be  ne¬ 
glected.  For  dynamic  problems,  the  orientation  of  gravity  relative  to  the  undeformed 
beam  must  be  known  at  all  times. 

The  potential  energy  due  to  gravity  is  specified  for  an  incremental  mass  in  the 
cross  section  as: 


dUg  =  -gTB{R*B  -  Rref  B)dm 


(3.60) 


Integrating  over  the  cross-sectional  area  gives  the  potential  energy  per  unit  length, 
and  the  variation  is  determined  as  well.  Note  that  the  variation  of  known  quantities 
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is  zero.  Using  Kirchoff’s  Kinetic  Analogy: 


Ug  =  -gB  /  (R*b  -  Rref  B)dm 
J  A 


5Ug  = 

~9Tb 

[  ( 5R*b  -  6Rref  B)dm 

)  A 

sug  = 

~9Tb 

/  {dr B  +  5ub  +  S£B)dm 

J  A 

5Ug  = 

-9Tb 

/  (SuB  +  6£B)dm 

)  A 

sug  = 

~9Tb 

/  (SqB  +  6if>B£B)dm 

J  A 

5Ug  = 

-9b(sQb  ~  £BHB)m 

(3.61) 


Adding  these  terms  has  the  same  effect  as  adding  the  following  distributed  forces  and 
moments  to  the  beam  in  the  direction  of  the  gravity  vector: 


fg  =  mgB 
mg  =  £ BmgB 

Either  approach  will  work.  Note  that  £B  is  defined  in  the  deformed  coordinate  system. 
It  is  more  realistic  to  use  CBb£b,  since  the  vector  £j,  is  known  (in  the  undeformed 
coordinate  system).  This  is  also  true  of  the  gravity  vector,  gB,  which  must  be  given  in 
the  deformed  coordinate  system.  The  user  will  know  gb,  and  therefore  in  the  equations 
it  must  be  pulled  forward  into  the  deformed  coordinate  system  using  CBbgb- 


3.10  Generalized  Momenta,  Forces,  and  Moments 

The  generalized  momenta  {PB  and  HB )  can  be  obtained  from  the  kinetic  energy 
through  the  following  relationships  [26]: 

Pb  =  ^  j  =  m{VB  —  £bQb) 

(dT  \  ~ 

-qq  J  =  I$lB  +  'i'n£BVB 


(3.62) 


Using  these  definitions,  the  kinetic  energy  can  also  be  written  as  follows: 


ST  =  5VgPB  +  SnTRHR 


(3.63) 


Note  that  the  momenta  impose  a  type  of  constitutive  equation  on  the  problem,  relating 
velocities  to  momenta  in  the  same  way  that  strains  will  be  related  to  internal  forces. 
These  equations  may  be  assembled  in  the  following  matrix  form: 


Pb 

m 

-m^B 

VB 

Hb 

m^B 

I 

fig 

(3.64) 


The  generalized  forces  (Fg)  and  moments  (Mg)  are  formed  in  a  similar  fashion.  For 
a  known  strain  energy  function  (dependent  on  geometric  and  material  properties), 
which  is  a  function  of  7#  and  Kg  alone,  the  internal  forces  and  moments  may  be 
determined  by  its  partial  derivatives: 


Fb  = 
Mb  — 


(3.65) 


Note  the  similarity  to  the  way  kinetic  energy  relates  to  generalized  momenta.  This 
leads  to  the  following  definition  of  the  variation  in  strain  energy: 


SU  =  StEFb  +  SktbMb 


(3.66) 


The  following  set  of  generic  equations  are  used  to  represent  the  constitutive  laws: 


Fb 

A 

B 

7  B 

Mb 

Bt 

D 

Kg 

(3.67) 


In  this  equation  A,  B,  and  D  are  three-by-three  matrices  containing  geometric  and 
material  properties.  For  an  isotropic  beam,  the  following  relationships  are  used  for  A 
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and  D: 


EA 

0 

0 

GJ 

0 

0 

0 

gk2 

0 

D  = 

0 

EI2 

0 

0 

0 

gk3_ 

0 

0 

EI3_ 

(3.68) 


The  matrix  B  is  a  three-by-three  zero  matrix  for  an  isotropic  solid.  Geometric  and 
material  properties  include  Young’s  modulus  of  elasticity  (E),  shear  modulus  ( G ), 
torsional  rigidity  ( J),  cross  sectional  area  (A),  and  effective  shear  areas  ( K ).  Although 
the  theory  allows  for  more  complex  beams,  isotropic  beams  are  used  for  the  test  cases 
in  this  research.  These  relationships  hold  true  for  Hookean  materials  while  the  solid 
remains  in  the  elastic  region  of  deformation. 


3.11  Virtual  Work  and  Virtual  Action 

The  action  of  applied  loads  and  moments  is  accounted  for  using  the  principle 
of  virtual  work.  Let  fB  and  mB  represent  externally  applied  forces  and  moments  per 
unit  length  acting  at  the  beam  reference  line.  Since  any  load  set  can  be  written  in 
terms  of  a  force  vector  and  a  couple  about  the  reference  line  of  choice,  this  is  sufficient 
for  all  possible  cases.  The  virtual  work  due  to  applied  loads  (per  unit  length)  can  be 
written  as  [26]: 

5W  =  Sq’sfB  +  HTBmB  (3.69) 

Externally  applied  loads  appear  in  the  system  equations  using  this  mechanism.  The 
subscript  shows  that  they  are  in  the  deformed  coordinate  system,  indicating  that  they 
are  follower  forces.  If  desired,  they  can  be  pre-multiplied  by  a  direction  cosine  matrix 
to  stay  in  the  undeformed  coordinate  system.  As  previously  discussed,  gravity  could 
also  be  included  as  an  external  force. 

The  trailing  terms  in  Hamilton’s  Law  are  sometimes  referred  to  as  virtual  ac¬ 
tion  [45].  They  represent  the  natural  spatial  and  temporal  boundary  conditions  of 
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the  problem.  Hodges  [26]  shows  that  they  can  be  expanded  as: 


SA 


(Sq^PB  +  8'il)TBHB)\tt\dx1 


rt2 


T 


(5qBFB  +  5i/jBMB)yt 


(3.70) 


These  conditions  are  enforced  when  deriving  the  beam  equations  from  Hamilton’s 


Law. 


3.12  Derivation  of  Equations  from  Hamilton’s  Law 

This  section  provides  a  detailed  derivation  of  the  exact,  intrinsic  equations  for 
a  beam  beginning  with  Hamilton’s  Law.  It  is  similar  to  the  procedure  performed  by 
Hodges  in  [26] .  Hamilton’s  Law  was  discussed  in  the  previous  chapter  and  is  restated 
here: 

/  {SL  +  6W)dt-y'lr6qt\,z  =  a 
Jti  k=1  oqk 

First,  rewrite  the  Lagrangian  in  terms  of  kinetic  and  potential  energy,  let  the  trailing 
terms  be  defined  as  the  virtual  action  (<L4),  and  integrate  over  the  length  of  the  beam: 


(ST  -  SU  -  SUG  +  SW )  dxidt  -SA  =  0 


(3.71) 


Spatial  integration  is  necessary  because  all  of  the  energy  terms  previously  defined  have 
units  of  energy  per  length,  and  must  be  integrated  over  the  domain.  This  integral  is 
not  necessary  for  rigid  body  or  particle  motion,  but  is  required  for  deformable  bodies 
as  discussed  in  chapter  2.  Insert  the  definitions  of  kinetic  and  potential  energy  (3.63 
and  3.66)  in  terms  of  generalized  speeds,  strains,  momenta,  and  forces: 


-  SUG  +  SW)}  dxidt  -SA  =  0  (3.72) 


The  next  step  requires  introducing  kinematic  equations  through  the  use  of  Lagrange 
multipliers  (An).  The  following  equation  contains  the  kinematic  information,  where 
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terms  denoted  with  an  asterisk  will  later  be  replaced  with  their  definitions: 


rt2  pi 

<5  /  /  [A  l(VB  -  VS)  +  Af  (Os  -  +  Af  (7b  -  7£)  +  A  *  (kb  -  k*b)]  dx3dt  =  0 

Jti  Jo 

Carry  out  the  variation  to  obtain  the  following: 


+  £A^(7 b  -  7b)  +  I(Ks  -  «b) 

+  Af  (svr  -  5v^)  +  Af(<mB  -  Any 

+  Af(<5q b  —  &1b)  +  Af  (5kb  —  ^k*b)}  dxidt  =  0  (3.73) 

Next,  combine  equations  (3.73)  and  (3.72)  and  sort  by  like  terms: 


+  67|(A3  -  Fb)  -  <57I*A3  +  Sktb( A4  -  Mb)  -  8ktb* A4 
+  (Vb  -  V£)  +  5Al (f 'Is  ~  fifl)  +  af  (7B  -  7b)  +  5- Af  («b  -  k*b) 

-  5Ug  +  5W]  dxidt  -JA=  0  (3.74) 

This  equation  yields  the  following  relationships,  which  define  the  Lagrange  multipliers: 


-Pb 

5A1  =  —5Pb 

1 

to 

6X2  =  —5Hb 

Fb 

a3  =  sfb 

Mb 

a4  =  5mb 

(3.75) 
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Equation  (3.74)  can  thus  be  reduced  to  the  following: 


+  6V£(Pb  -  P*B)  +  6nl(HB  -  H*b)  +  S^l(F*B  -  Fb )  +  8ktb{M%  -  MB) 

-  5Pb(Vb  -  Vb)  -  SHl(nB  -  n*B)  +  5Fj(7g  -  7* )  +  8Mtb(kb  -  k*b) 

-  5Ug  +  8W\  dxidt  -SA  =  0  (3.76) 

Next,  insert  the  definitions  of  SVB,  5Q*B,  S 7^,  5k*b,  Pb,  Hb,  Fb,  and  MB,  where 
5Kb  =  5 kb  since  the  undeformed  curvature  is  known. 

[  2  [  WqB  +  VbWb  +  &bJ?b)Pb  +  (Hb  +  O b0b)Hb 

Jti  Jo 

-  (( IqBy  +  (ej  +  7 b)HTb  +  KBlg)FB  -  ((5^)'  +  KB8$TB)MB 
+  5Vb  (Pb  -  mVg  +  mfflfig)  +  50 £(Mg  -  JOg  -  mfgEg) 

+  57^(A7b  +  Bkb  —  Eg)  +  5k^(5t7b  +  D  kb  —  Mg) 

-  5Pj(Vg  -  (C^K  +b  +  D6u6)))  -  5tf|(0g  -  (HBbpB/b  +  CBbub )) 

+  5P|’(7g  -  (CBb(ei  +  (uby  +  ~kbub )  -  ei)) 

+  5M|(Kg  -  (MSfe(pg/fe)'  +  -  A*)) 

-  5Ug  +  ~8W]dx\dt  -5A  =  0  (3.77) 


Define  the  following  bar  quantities  for  generalized  momenta  and  internal  forces: 


IP  =  CbB  5  PB 
SpT  =  jpTcbB 
JH  =  ( HBb)T5HB 
5  Hi  =  6HT(HBb)~ 1 


IF  =  CbB  5  PB 
5F%  =  lFTCbB 
JM  =  (. HBb)T8HB 
8  Ml  =  lMT(HBb)~l  (3.78) 
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Substitute  these  into  equation  (3.77)  to  obtain  the  following: 


[  2  [  [(Mb  +  VbH^b  +  O bMTB)Pb  +  (S/B  +  ^b^Tb)Hb 
Jt i  Jo 

~  ((M^Y  +  (ei  +  7 +  KBSq^)FB  -  ((5ip] g)'  +  kB5^)MB 
+  SVB  (PB  -  mVB  +  miBnB)  +  5ttTB{HB  -  mB  -  mlBVB ) 

+  d'yB(A-fB  +  Bkb  -  Fb)  +  5kb(Bt 7b  +  F^b  -  Mb) 

-  (5PTCbB)VB  +  (lPVB)(FBb(u6  +b  +  h)fenfe)) 

-  (5MT(MB6)-1)Ob  +  (^r(FBfc)-1)(/7BVB/6  +  CBbu;b) 

+  (FFTFbB)7B  -  (FFrCbB)(FBb(ei  +  u'b  +  to)  -  ei) 

+  (6MT (HBb)~l)nB  -  (5MT(HBb)-')(HBb(pB/b)'  +  CBbkb  -  kb) 

-5UG  +  JW]dx1dt-lA=0  (3.79) 

From  here  the  derivatives  ub,  pB/b,  ub,  and  p'B,b  are  evaluated  using  integration  by 
parts.  This  will  remove  all  derivatives  of  non-variational  quantities  from  the  problem 
while  at  the  same  time  enforcing  natural  boundary  conditions.  This  is  the  application 
of  HWP  in  the  problem.  It  will  allow  the  choice  of  simple  shape  functions  in  the  finite 
element  integration  as  well.  Performing  integration  by  parts  and  expanding  the  terms 
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in  the  virtual  action: 


f  2  [  [(Sql  +  VbS^Tb  +  nB5qTB)PB  +  (d/B  +  nBS/B)HB 

t\  Jo 

~  {(^Qb)'  +  (ei  +  7 b)HTB  +  KBSq^)FB  -  {(8'il)TB)'  +  KB8il^)MB 
+  SVl (PB  -  mVB  +  +  <50S(Hs  -  mB  -  m^BVB) 

+  8^B(A^B  +  B«;b  -  Fb)  +  5ktb(Bt^b  +  Fkb  -  Mb) 

+  lPT(ufe  +  h)fenfe  -  CbBVB)  +  SFT(CbB(lB  +  ei)  -  (ei  +  ta)) 
+  SHT(HBb)~\CBbub  -  fiB)  +  8MT{HBb)-\KB  -  CBbkb  +  kb) 
-IP  ub  +  (8FT)’ub  -  8H  pB/b  +  (8MTYpB/b 


5Ug  +  5W]  dxidt 

Pt  2  rr, 


-  (8F  ub  +  8M  pB/b)\0dt 

Jh 

pi 

+  /  (8PTub  +  5HT ps/^ldxx 
Jo 

-  [  (S^Pb  +  S^Hb)^- 


rt2 


(5qBFB  +  8ipBMB)  |  e0dt  =  0  (3.80) 


'0 


Combining  the  boundary  terms,  eliminating  kb  with  the  definition  of  KB,  and  re¬ 
arranging  some  terms  yields  the  final  expression  of  Hamilton’s  Law  for  an  isotropic 
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beam: 


[  2  \  [(Mb  -  SqTBClB  -  HTBVb)Pb  +  (Mb  ~  &&b)Hb 
Jt i  Jo 

-  ((&&)'  -  MbM i  +  7b)  -  5qBKB)FB  -  (( MTb )'  ~  MTBKb)Mb 

+  SVg ( PB  ~  rnVR  +  m^s)  +  8klTB(HB  -  IQs  ~  mlBVB ) 

+  M'bMib  +  Bbb  —  Fb)  +  8Kb(Bt^b  +  Dkb  ~  Mb) 

+  JPT(vb  +  wbub  -  CbB\ 4)  +  JFT(CbB(lB  +  ei)  -  (e,  +  Mi,)) 

-  nB)  +8MT(HBb)-1(KB  ~  CBbkb ) 

—  IP  ub  +  (5FT)'ub  -  IH  pB/b  +  (5MT)'pB/b 

-  5Ug  +  5W]  dxidt 

+  [  2  ( MTBFb  +  MTBMb  -  JFTub  -  JMTpB/b )  lo dt 

Jt i 

re 

+  /  (JpTub  +  MT PB/b  -  MTBPb  -  mIHbM^  =  0  (3.81) 

Jo 

3.13  Finite  Element  Discretization 

Equation  (3.81)  represents  the  exact  intrinsic  equation  for  a  beam.  It  is  valid 
for  beams  with  closed  cross  sections  without  any  restrictions  on  warping.  The  form 
is  similar  to  Hodges  [26]  with  some  minor  differences  including  the  choice  of  rotation 
parameters.  In  order  to  use  this  equation  to  obtain  time  accurate  solutions  to  moving 
beam  problems,  a  space-time  finite  element  procedure  is  used.  Integration  is  per¬ 
formed  with  shape  functions  of  the  lowest  possible  order.  In  this  case,  bilinear  shape 
functions  are  used  for  the  variational  quantities  dqB  and  8ipB,  and  linear  shape  func¬ 
tions  are  used  for  5P,  8H ,  SVB,  <5D_b,  8F,  5M,  5jb,  and  5KB ■  For  all  non-variational 
quantities,  constant  shape  functions  are  used.  Define  the  non-dimensional  time  step 
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r  and  non-dimensional  length  e: 


t  —  t\  t  —  t  i 

t2  -  ti  ~  At 

X  —  Xi  X  —  Xi 

X2  —  Xi  Ax 

1 

At 
1 

Ax 

(3.82) 

Here  the  Ax  refers  to  a  distance  along  the  reference  line  x\,  but  the  subscript  is 
dropped  to  avoid  confusion  with  x\  and  x2,  which  are  the  spatial  edges  of  an  element. 


r  = 

e  = 

f  = 
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The  following  are  the  shape  functions  for  the  variational  quantities: 


SqB  =  Sq^l  -  e)(l  -  r)  +  Sq2e(l  -  r)  +  5q3£T  +  5q4(l  -  e)t 
$Qb  =  7^  [Sqi(£  ~  1)  -  Sq2s  +  Sq3£  +  6<u(l  -  e)] 

(5<?s)'  =  ^  [SQi(t  ~  1)  +  Sq2(l  -  r)  +  5q3r  -  hg4r] 

5ipB  =  <5'01(1  —  e)(l  —  r)  +  <5^2£(1  -  t)  +  &/>3£t  +  8tp4{l  -  e)r 

Hb  =  _  !)  -  <^2£  +  Hze  +  ^4(!  -  £)) 

Wb)'  =  ^  -  !)  +  ^2(1  -  r)  +  5i/j3t  -  5^4r] 

5Vb  =  5^i(l  -  r)  +  6V2t 
5Qb  —  5^i(l  —  r)  +  5h22T 
5P  =  <hPi(l  —  r)  +  JP2t 
8H  =  6H1(1-t)  +JH2t 

JP=^t(SP2-SPi) 

JH  =  T( (SH2  -  «7‘) 

=  ^7i(l  —  e)  +  572^ 


6 Kb  =  SKi(l  -e)  +  5K2e 

SF  =  SF1(1-e)  +JF2£ 

JM  =  5M4(1  —  s)  +  JM2e 

(5F),  =  ^(SF2»SF1) 

(8MY  =  -!-(8M2  -SMi) 
Ax 


(3.83) 
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The  following  piecewise  constant  shape  functions  are  defined  for  the  generalized 


speeds  and  strains: 


VB  =  VB 

fis  =  Hr 


7  B  =  7  B 

Kb  =  Kb 


Those  quantities  with  boundary  conditions  are  defined  as  follows: 


Pr  = 


Hb  = 


ub  = 


Pi,  r  =  0 
Pg,  0  <  r  <  1 

A,  r  =  1 

Hi,  t  =  0 
Pg,  0  <  r  <  1 
P2,  T=  1 

til,  r  =  0 
«3,  T  =  1 
M4,  £  =  0 

«2,  £  =  1 
ub,  otherwise 


Pr  —  < 


Mb  —  < 


Ps/fc 


= 


Pi,  £  —  0 
Pg,  0  <  £  <  1 

A,  ^  =  i 

Mi,  £  =  0 

Mb,  0  <  £  <  1 

M2,  £  =  1 

Pi,  T  =  0 

P3,  T  =  1 

Pi,  £  =  0 
P2,  e  =  l 
ps/b ,  otherwise 


(3.84) 


(3.85) 


Figure  3.2  depicts  a  finite  element  with  field  quantities  defined  at  space  and  time 
boundaries  and  within  the  element.  Pg  and  Pg  have  discrete  boundary  conditions 
in  the  time  domain,  but  are  piecewise  constant  throughout  a  single  beam  element. 
They  are  not  continuous  between  elements  in  space.  The  quantities  Vg  and  fig  have 
no  boundary  conditions  and  are  constant  throughout  the  element.  They  are  not 
continuous  in  space  or  time.  Similarly,  the  quantities  7 g  and  KB  have  no  boundary 
conditions  while  Pg  and  Mg  have  discrete  boundary  conditions  in  space  at  the  edges  of 
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Figure  3.2:  Finite  element  depiction:  field  quantities  are  ei¬ 

ther  defined  as  constants  within  the  element,  or  as  spatial  and 
temporal  boundary  conditions. 


the  element  but  are  otherwise  constant.  Thus  the  strains  are  not  continuous  in  space 
or  time,  and  the  forces  and  moments  are  discontinuous  in  time.  The  deformation 
field  which  consists  of  Ub  and  ps/b  are  piecewise  constant  through  the  element  but 
have  discrete  boundary  values  at  both  space  and  time  boundaries.  They  are  piecewise 
continuous  in  space  and  time  through  their  boundary  conditions. 

The  advantage  of  using  the  weak  form  can  now  be  seen,  as  all  integration  is 
performed  by  inspection.  The  following  integrals  are  used: 

t2 


dt  =  At 


(3.86) 
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Substitute  the  shape  functions  into  equation  (3.81),  and  expand  the  gravity  and  vir¬ 
tual  work  terms  to  obtain  the  following  expression: 


'At 


T 


-=—T 


-=—T 


T  . 


[(-TT  ^qi(£-^)-Sq2£  +  5q3£  +  5q4(l-e) 


5q[{l  —  e)(l  —  r)  +  5q^e{l  —  r)  +  Sq3£T  +  Sq4(l  - 
<b/q (1  —  e)(l  —  r)  +  Sip 2e(1  —  r)  +  5i/j3£t  +  ( 


+  <tyi  (e  -  1)  -  #2  £  +  <ty3  e  +  5i/j 4  (1  -  e) 

(1  —  e)(l  —  r)  +  <b/q£(l  -  r)  +  S'i/j'I £T  +  ( 

-  Sq^(T-l)  +  5q2(l-T)+5qlT-5qlT 
Stf  (1  —  e)  (1  —  t)  +  Si/j2£(1  -  t)  +  5iJj3£t  +  (b/q  ( 


(1  —  e)  (1  —  t)  +  ^2  £(1  -  7")  +  5q3£T  +  dq4  (1 


"Ax 


<^/q  (r  —  1)  +  <5^2  (1  —  t)  +  (b/q  r  —  <b/>4  r 
-  5i/q  (1  -  e)  (1  -  t)  +  (b/q  £(1  -  t)  +  5i/}3£t  +  (b/q  ( 
+  (<5ViT(l  -  r)  +  SV2  t)(Pb  -  mVe  +  m^BCtB) 

+  (1  -  r)  +  5{12t)(Hb  -  mB  ~  miBVB) 


+  (5^  (1  -  e)  +  S^e){A^b  +  £(/?B  -  kb)  -  Fb) 


+  (5A?  (1  -  e)  +  5AT2t£)(AT7B  +  Z)(/?B  -  fc6)  -  MB) 
+  (SPi(l  ~r)+  5P2t)  {vb  +  wbub  -  C^Vb) 

+  (£f[(1  -  s)  +  JF2£)(CbB^B  +  ei)  -  (ei  +  kbub)) 


+  (1  -  r)  +  5H2  r)(ABb)_1(C,i'6a;6  -  fiB) 


xBb, 


+  ((JAfi  (1  -  e)  +  5M2£)(Hm)~  (Kb  -  Cmkb ) 

-  -  w'hft 
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From  here,  the  integrals  are  evaluated  by  inspection  to  get  the  final  beam  equation, 
which  is  grouped  by  variational  quantities: 
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In  this  equation  it  is  clear  that  all  expressions  with  separate  coefficients  must  indi¬ 
vidually  be  equal  to  zero.  This  generates  a  system  of  20  equations.  However,  only 
18  of  these  equations  are  independent.  The  four  equations  generated  from  the  5q 

- T 

coefficients  are  redundant,  as  are  the  equations  from  <5-0  .  Four  equations  and  four 
unknowns  are  eliminated  from  this  system  by  subtracting  combinations  of  the  5qB 
and  S'i/jb  terms  to  obtain  the  following  relationships: 

fb  =  -(A  +  A) 

Mb  =  ~(M\  +  M2) 

A,  =  i(A  +  A) 

Rb  =  1(A,  +  H2)  (3.89) 
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The  following  is  also  determined  by  adding  combinations  of  the  last  eight  terms  of 
(3.88): 


ub  =  -(hi  +  U2  +  U3  +  h4) 
Pb  —  -(pi  +  P2  +  Pz  +  Pa) 


(3.90) 

(3.91) 


These  two  relationships  will  not  be  used  to  eliminate  equations,  since  the  deformation 
variables  cannot  be  completely  eliminated  from  the  final  equation  set.  Eliminating 
the  redundant  equations  and  FB,  MBl  PB,  and  HB  yields  the  final  set  of  14  equations 
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and  14  unknowns  for  each  element: 
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(3.93) 

(3.94) 

(3.95) 

(3.96) 

(3.97) 

(3.98) 

(3.99) 

(3.100) 

(3.101) 

(3.102) 

(3.103) 

(3.104) 

(3.105) 


Note  that  each  unknown  is  a  vector  with  three  components,  and  thus  there  are  actually 
42  variables  that  must  be  solved  in  each  element.  The  first  two  equations  account  for 
externally  applied  loads  and  relate  forces,  momenta,  velocities,  and  strains.  Equations 
(3.94  -  3.97)  are  the  constitutive  equations  that  relate  velocities  to  momenta  and 
internal  forces  to  strains.  Equations  (3.98  -  3.101)  are  kinematic  equations  that  relate 
velocities  to  displacements,  and  (3.102  -  3.105)  are  strain-displacement  relationships. 
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Equations  (3.92  -  3.105)  contain  22  separate  vector  quantities,  some  within  the 
element  and  some  prescribed  on  the  boundaries.  There  are  significant  differences 
between  this  formulation  and  a  more  traditional  displacement  formulation.  Here 
forces,  momenta,  strains,  velocities,  and  displacements  are  all  propagated  as  separate 
field  quantities.  While  adding  complexity,  it  also  allows  natural  boundary  conditions 
to  be  enforced  explicitly  in  the  equations.  Note  also  that  the  values  are  not  defined 
at  “nodes”,  as  would  be  the  case  with  traditional  finite  elements,  but  only  along 
the  edges  or  within  the  element.  Displacements  are  defined  on  all  four  edges  (two 
spatial  edges  and  two  temporal  edges)  and  also  in  the  center.  The  values  at  the  edges 
are  piecewise  constant  and  the  interpolation  polynomial  for  displacement  within  the 
element  is  also  a  constant.  However,  defining  the  displacement  at  both  the  edges 
and  in  the  center  provides  a  bilinear  interpolation  function.  In  other  words,  while  the 
value  of  displacement  is  assumed  to  be  constant  within  the  element  and  is  the  average 
of  all  the  boundaries,  one  may  use  the  boundary  values  to  obtain  a  linear  solution  in 
both  space  and  time.  This  greatly  improves  convergence  for  beam  problems  where  the 
exact  solution  is  of  a  higher  order.  This  same  concept  applies  to  momenta,  which  are 
defined  along  time  boundaries,  and  internal  forces,  which  are  defined  at  the  spatial 
boundaries.  It  does  not  apply  to  generalized  velocities  or  strains,  which  are  only 
defined  inside  the  element. 

3.14  Equations  for  Steady- State  Analysis 

Given  a  set  of  prescribed  conditions,  the  initial  displacements  and  momenta 
may  not  be  known.  In  this  case,  a  complete  set  of  initial  conditions  does  not  exist 
and  must  be  solved  prior  to  the  dynamic  analysis.  This  is  accomplished  by  solving  a 
steady-state  problem,  where  equations  (3.92  -  3.105)  are  appended  with  the  following 
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constraints: 


Pi  ~  P3 
u\  =  U3 

Pi  =  P3 

Hi  =  H3  (3.106) 

The  relationships  in  (3.106)  are  supplied  instead  of  initial  conditions.  This  technique 
will  also  yield  solutions  to  static  problems.  The  result  gives  the  initial  conditions 
for  the  dynamic  problem.  Thus  there  are  two  different  solvers  used,  one  steady  and 
one  dynamic,  and  the  steady  solution  is  obtained  first  to  supply  the  full  set  of  initial 
conditions  for  the  dynamic  solver. 

3.15  Solution  Algorithm 

Finite  element  discretization  of  Hamilton’s  Weak  Principle  yields  a  set  of  non¬ 
linear  algebraic  equations.  It  is  both  an  initial  value  problem  in  time  and  a  boundary 
value  problem  in  space.  A  typical  approach  for  this  type  of  problem  is  to  solve  the 
boundary  problem  for  the  initial  time  step,  use  the  solution  as  the  initial  condition 
for  the  next  step,  and  iterate  in  time  [3,23,34]  (see  Figure  3.3).  It  requires  that  the 
full  configuration  of  the  beam  is  solved  at  each  time  interval. 

The  beam  is  discretized  into  Nx  elements  along  its  reference  line  and  solved 
over  a  time  interval  of  Nt  increments.  In  this  problem  there  are  22 Nx  field  quantities 
and  14Arx  equations.  To  fully  define  the  problem  there  must  also  exist  4 Nx  initial 
conditions  and  4 Nt  boundary  conditions  (a  set  of  four  boundary  conditions  during 
each  time  step).  The  initial  conditions  are  pi,  u\ ,  Pi,  and  H\  in  each  spatial  element. 
Boundary  conditions  are  specified  as  root  or  tip  conditions,  and  come  from  p2,  Pa,  u2, 
p4,  F\ ,  F2,  Mi,  or  M2,  depending  on  the  problem.  For  a  cantilevered  beam,  the  root 
displacements  are  fixed  and  the  tip  forces  and  moments  are  prescribed.  This  generates 
four  boundary  conditions.  The  aerospace  application  of  immediate  interest  (rotor 
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Figure  3.3:  Time  marching  procedure:  all  elements  within  a 
single  time  step  are  solved  simultaneously,  and  the  solution  pro¬ 
vides  the  initial  conditions  for  the  next  time  step.  The  algorithm 
marches  in  time  until  the  complete  solution  is  determined. 

blades  and  flexible  wings)  is  a  cantilevered  problem,  and  thus  it  is  used  exclusively 
as  the  boundary  condition  for  this  research.  However,  other  combinations  would 
be  used  for  different  boundary  conditions.  The  beam  elements  also  share  boundary 
values  along  their  edges.  For  a  continuous  beam  the  values  of  qb,  pB/b,  FB,  and  MB 
are  shared  at  element  edges.  For  various  types  of  joints  (such  as  a  hinge),  some  of 
these  quantities  will  be  shared  and  others  may  be  prescribed.  Figure  3.4  shows  a 
beam  element  and  its  shared  properties  with  the  adjoining  elements. 

After  applying  the  4  boundary  conditions,  4 Nx  initial  conditions,  and  4 (Nx  —  1) 
shared  edge  conditions,  only  14iYx  unknowns  remain.  The  algorithm  must  therefore 
solve  a  system  of  1ANX  equations  and  14iVx  unknowns  at  each  time  step.  This  is 
accomplished  by  posing  the  system  of  equations  as  an  unconstrained  minimization 
problem  which  may  be  solved  numerically.  The  problem  is  of  the  form, 

F(x )  =  0 
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Figure  3.4:  Each  element  shares  properties  along  its  edges 

(indicated  by  arrows)  with  the  adjoining  elements. 

where  F(x)  is  a  vector  containing  the  residuals  of  equations  (3.92)  through  (3.105), 
which  must  be  minimized.  There  are  many  algorithms  for  solving  this  problem.  In  this 
research  it  is  solved  with  a  Gauss-Newton  method  that  is  implemented  in  Matlab®. 
While  the  details  of  the  numerical  algorithm  are  outside  the  scope  of  this  research,  the 
problem  must  be  preconditioned  so  that  the  algorithm  will  converge.  This  requires  a 
good  initial  guess  for  the  solution  and  appropriate  scaling  in  the  state  vector. 

3.16  Scaling  and  Units 

Unconstrained  minimization  algorithms  perform  poorly  when  the  variables  are 
inconsistent  in  magnitude,  and  often  fail  to  End  the  solution  [35].  Unfortunately,  units 
of  force  are  generally  very  large  and  units  of  displacement  are  very  small.  For  dynamic 
problems  the  gradients  are  also  a  factor  and  very  small  units  of  time  are  needed  to 
accurately  capture  information.  Using  typical  English  units  of  pounds,  inches,  and 
seconds,  many  of  the  test  cases  will  fail  to  converge.  However,  when  the  basic  units 
are  changed  so  that  the  state  vector  is  of  a  consistent  magnitude,  the  algorithm  will 
perform  well.  For  dynamic  problems  this  requires  the  use  of  milliseconds  as  the  basic 
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unit  of  time.  The  unit  of  force  changes  from  a  si  ■  in  ■  sec~2 ,  where  a  slinch  (si)  is 
1  /  12th  of  a  slug,  to  a  si  ■  in  ■  ms~2.  This  is  equivalent  to  lxl06Z5,  or  1  Mlb.  However, 
in  other  problems  (usually  static  or  steady-state)  it  is  more  convenient  to  use  pounds 
or  kips  and  keep  the  units  of  time  in  seconds.  One  must  know  the  magnitude  of  the 
solution  ahead  of  time  in  order  to  choose  the  correct  units.  Otherwise,  the  problem 
may  be  poorly  scaled  and  this  could  prevent  the  algorithm  from  converging.  The  test 
cases  illustrate  this. 

3.1 7  Choosing  the  Initial  Guess 

In  order  to  implement  the  algorithm,  an  initial  guess  is  used  to  begin  searching 
for  the  solution.  Often  the  convergence  of  the  problem  depends  on  how  close  the 
initial  guess  is  to  the  solution,  and  in  some  cases  a  poor  initial  guess  will  either 
prevent  the  algorithm  from  converging  or  cause  it  to  converge  on  a  minimum  that  is 
not  the  correct  solution.  For  a  typical  static  problem,  the  initial  guess  is  set  to  zero. 
For  some  problems,  however,  this  is  not  close  enough.  There  are  two  techniques  used 
to  deal  with  this  problem.  One  is  used  for  static  problems,  the  other  for  time  accurate 
problems. 

For  highly  nonlinear  problems  where  the  solution  is  nowhere  near  zero,  the 
problem  is  solved  incrementally.  The  process  is  similar  to  incremental  loading  which 
is  also  used  in  traditional  finite  element  analysis  programs  for  nonlinear  problems. 
First  the  applied  load  is  divided  into  increments,  then  solved  at  the  smallest  increment 
using  an  initial  guess  of  zero.  The  solution  is  then  used  as  the  initial  guess  for  the  next 
increment.  The  algorithm  continues  in  this  manner  until  reaching  the  final  loading 
condition,  which  yields  the  solution.  Solving  incrementally  keeps  the  initial  guess 
close  to  the  solution. 

For  dynamic  problems,  the  gradients  in  displacement  and  force  can  be  very  large. 
If  the  step  size  is  small  enough,  the  previous  time  step  can  be  used  as  the  initial  guess 
for  the  solution.  To  improve  this  further,  numerical  derivatives  are  calculated  using 
data  from  the  previous  three  time  steps.  First  and  second  derivatives  are  used  to 
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project  where  the  next  guess  should  be  by  extrapolating  the  data.  This  places  the 
guess  closer  to  where  the  solution  should  be.  It  does  not  guarantee  convergence,  nor 
does  it  guarantee  unconditional  stability  in  the  solution. 

Let  X,  represent  the  state  vector  of  unknowns  at  time  step  i.  If  the  solution  to 
both  Xt  and  X,t_\  has  been  determined,  then  the  first  derivative  Xt  is  used  to  estimate 
the  guess  for  the  next  time  step  (Xi+i)  as: 

Xi  =  -^(Xi  -  Xi_o 

Xi+ igueS3  =  Xi  +  A  tXi 

Xl+lgueas  =  2X.l-Xi_l  (3.107) 


Likewise,  if  the  previous  two  time  steps  are  known,  second  derivative  information  is 
also  available  as  Xi. 


X 

■S'-i+lgu  ess 

X 

ess 


;{Xi^2Xi_1  +  Xi_2 


(At)2 

X,  +  A  t(Xi  +  At  Ah) 
3  Xi  —  3Aj_i  +  Xi- 2 


(3.108) 


3.18  Analytical  Jacobian 

Numerical  algorithms  for  solving  systems  of  nonlinear  algebraic  equations  cal¬ 
culate  a  Jacobian  matrix,  which  contains  the  partial  derivative  of  each  equation  with 
respect  to  each  variable.  This  provides  the  search  direction  for  most  methods.  In 
this  case,  the  Jacobian  is  a  42Ah.  by  42Ah.  square  matrix.  While  most  algorithms  can 
calculate  this  with  finite  difference  techniques,  using  the  analytical  Jacobian  greatly 
improves  the  speed  of  the  algorithm.  An  analytical  Jacobian  is  used  in  this  research; 
however,  due  to  its  size  it  is  not  practical  to  show  the  development  here.  Appendix 
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D,  which  contains  a  listing  of  the  computer  program,  shows  the  equations  used  to 
determine  the  Jacobian. 

3.19  Error  Tolerance  Criteria 

Because  the  system  of  equations  is  solved  as  an  unconstrained  minimization 
problem,  it  will  continue  to  search  for  a  solution  until  the  residuals  are  sufficiently 
small.  At  this  point  the  algorithm  will  determine  that  it  has  reached  a  minimum 
and  stop.  Because  the  quantities  Ax  and  At  appear  in  equations  (3.92  -  3.105),  the 
element  size  affects  the  magnitude  of  these  residuals.  As  more  elements  are  used, 
the  decrease  in  Ax  also  decreases  the  residuals,  and  this  has  the  undesired  effect  of 
increasing  error  tolerance.  It  will  cause  the  algorithm  to  produce  inaccurate  solutions 
for  large  mesh  sizes  unless  accounted  for.  This  is  accomplished  by  manually  decreasing 
the  error  tolerance  in  the  algorithm,  or  by  making  it  a  function  of  the  element  size. 
Either  method  is  sufficient. 

3.20  Conservation  Laws 

It  is  a  common  practice  to  apply  conservation  laws  to  Enite  element  discretiza¬ 
tion  schemes  [28].  This  allows  the  numerical  preservation  of  energy  to  be  demon¬ 
strated  in  the  solution  [11,20].  These  algorithms  are  sometimes  referred  to  as  energy 
preserving  schemes.  The  current  research  does  not  prove  the  conservation  of  energy 
mathematically,  but  it  is  demonstrated  for  certain  cases  numerically.  Bauchau  [10,11] 
discusses  the  problems  that  occur  with  energy  preserving  schemes  when  trying  to 
solve  complex,  flexible  body  systems  with  multiple  elements.  When  energy  preserva¬ 
tion  algorithms  are  used,  high  frequency  modes  are  introduced  into  the  system  as  the 
number  of  elements  is  increased.  High  frequency  numerical  dissipation  is  required  to 
make  the  algorithm  useful.  Bauchau  presents  several  energy  decaying  formulations 
which  correct  this  problem.  In  general,  they  apply  to  displacement  finite  element  for¬ 
mulations,  involving  a  tuning  parameter  which  determines  the  amount  of  dissipation 
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through  each  time  interval.  No  energy  decaying  formulation  has  yet  been  developed 
for  mixed  finite  element  formulations. 
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IV.  Analysis  and  Results 

In  this  chapter  the  computational  algorithm  is  applied  to  several  classes  of  problems 
to  evaluate  its  capabilities  and  robustness,  and  the  results  and  convergence  criteria  are 
presented.  The  scenarios  are  given  in  order  of  increasing  complexity,  beginning  with 
the  simplest  static  equilibrium  problems  and  finishing  with  more  complex  problems 
of  dynamic  motion. 

4-1  Axial  Rods 

The  initial  tests  of  the  algorithm  were  accomplished  by  obtaining  static  solutions 
to  various  problems.  This  verifies  the  ability  to  obtain  complete  initial  conditions  for 
a  structural  problem  before  proceeding  with  the  time  accurate  simulation.  For  all 
static  and  steady-state  problems,  equations  (3.92  -  3.105)  are  solved  with  (3.106)  as 
a  constraint.  The  basic  units  for  axial  rod  problems  are  pounds,  inches,  and  seconds. 
No  convergence  problems  associated  with  scaling  were  encountered,  although  it  was 
later  determined  that  greater  efficiency  is  attainable  with  units  scaled  such  that  the 
relative  magnitudes  of  force,  strain,  and  displacement  are  the  same.  Problems  with  tip 
loads  are  modeled  by  specifying  the  force  as  a  boundary  condition,  while  distributed 
loads  are  modeled  with  virtual  work. 

The  simplest  configuration  to  test  is  the  deformation  of  a  fixed-free  rod,  which 
reduces  the  system  to  14IVX  linear  equations.  First,  a  12-inch  aluminum  rod  with  a 
circular  cross  section  is  loaded  axially  and  in  torsion.  It  is  cantilevered  on  one  end 
and  the  loads  are  applied  at  the  tip.  Figure  4.1a  illustrates  these  conditions.  The 
following  material  properties  were  used  for  aluminum:  p  =  0.098  lbf/in3,  E  =  10'  psi, 
and  v  =  0.35.  For  the  first  case,  P  is  a  1000  lb  load  and  T  is  a  1000  in-lb  torque. 
Because  this  is  a  constant  strain  problem,  the  model  converges  to  the  exact  solution 
using  a  single  element  (see  Figure  4.2).  Analytical  solutions  are  obtained  from  the 
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(a)  Tip  loads  (b)  Distributed  loads 

Figure  4.1:  Axial  rod  geometry  and  loading  configurations. 

following  equations,  which  can  be  found  in  most  engineering  mechanics  textbooks  [25] : 


Fx  (x) 

=  P 

Mx(x) 

=  T 

7*0*0 

P 

KX{X) 

T 

“  EA 

~  GJ 

ux(x) 

=  IxX 

6x{x) 

=  KxX 

(4.1) 

The  quantity  Fx  is  the  internal  force  resultant,  Mx  is  the  internal  torsion,  kx  and  7X  are 
the  corresponding  force  and  moment  strains,  and  ux  and  9X  are  the  displacement  and 
twist.  Because  forces,  strains,  and  displacements  are  calculated  as  independent  field 
quantities,  they  are  solved  for  simultaneously.  Complete  solutions  for  each  quantity 
are  located  in  Appendix  A.  Each  solution  is  non-dimensionalized  by  its  maximum 
value  for  comparison.  The  problem  was  also  solved  using  meshes  of  5,  10,  20,  and 
30  elements  to  determine  if  any  problems  would  develop  as  the  number  of  elements 
increased.  This  led  to  the  discovery  that  decreasing  element  size  (Ax)  can  impact 
convergence,  if  the  error  tolerance  in  the  numerical  solver  is  not  set  low  enough  (as 
discussed  in  chapter  3). 

In  the  second  case,  a  distributed  load  of  83.33  lb/in  and  a  distributed  torque 
of  83.33  in-lb/in  are  applied  according  to  Figure  4.1b.  Distributed  loads  are  applied 
using  virtual  work,  and  therefore  it  is  not  necessary  to  resolve  them  to  equivalent 
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Nondimensionalized  Deformation 


Nondimensionalized  Rotation 


(a)  Deformation 


(b)  Twist 


Figure  4.2:  Nondimensionalized  deformation  and  twist  for  a  rod  with  an  axial  tip 
load  and  torque. 


nodal  loads,  as  is  typical  with  conventional  finite  element  methods.  The  values  for 
distributed  forces  and  moments  in  the  equations  are  specified  by  the  user.  The  dis¬ 
placements  in  this  problem  are  quadratic,  and  the  data  converges  to  the  exact  solution 
as  more  elements  are  used  in  the  mesh.  Mean  error  (. E )  is  calculated  using  the  differ¬ 
ence  between  the  calculated  and  exact  solutions.  If  k  is  the  number  of  data  points, 
F'{x)  is  the  calculated  solution,  F{x)  is  the  exact  solution,  and  xn  is  the  ^-coordinate 
along  the  length  of  the  beam,  then  the  mean  error  for  any  field  quantity  is  obtained 
as  follows: 


71=1 


I F'(xn)  -  F{xr 
F(xn) 


(4.2) 


This  relationship  is  defined  for  all  data  points  except  when  the  exact  solution  is  zero. 
Generally,  when  this  occurs  the  numerical  solution  is  also  zero  (or  machine  zero)  and 
thus  the  error  is  negligible.  Convergence  is  demonstrated  using  meshes  ranging  from 
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1  to  30  elements.  The  following  analytical  solutions  are  used  for  comparison  [25]: 


Fx  (x) 

lx{x) 

ux(x) 


Fx( 0)  - 

Jo 

Fx(x) 

EA 

px 

/  ~fx(x)dx 


Px{x)  dx 


Mx(x) 

Kx(x) 

9x(x) 


=  Mx( 0)  -  /  tx(x)  dx 

Jo 

_  Mx(x) 

GJ 

pX 

=  /  Kx(x)dx 

Jo 


(4.3) 


Table  4.1  illustrates  the  convergence  dynamics  for  all  field  variables.  The  pur¬ 
pose  of  the  numerical  solver  is  to  find  the  root  of  the  equations  by  minimizing  the 
norm  of  the  residuals  within  a  specific  tolerance.  As  more  elements  are  used,  more 
variables  are  introduced  into  the  state  vector.  As  more  variables  are  used,  the  error 
in  these  values  can  increase  without  exceeding  the  termination  criteria  of  the  solver. 
This  is  aggravated  by  the  fact  that  finer  meshes  have  more  points  closer  to  the  root, 
where  the  strains  are  much  smaller.  The  percent  error  in  these  points  is  generally 
larger  because  the  denominator  of  equation  (4.2)  is  much  smaller  than  at  other  points 
along  the  beam.  The  result  is  that  certain  field  variables  do  not  converge  numerically. 
Instead,  they  have  a  tendency  to  increase,  though  the  error  itself  is  not  significant. 
This  appears  to  be  an  issue  with  the  tolerance  in  the  solver  and  not  with  the  system 
equations.  While  this  does  not  illustrate  convergence  in  a  pure  mathematical  sense, 
it  is  sufficient  to  show  that  the  algorithm  will  converge  to  the  correct  solution  within 
a  specific  tolerance. 

As  expected,  the  greatest  error  occurs  in  the  displacements,  where  the  exact  so¬ 
lution  is  of  the  highest  order  (in  this  case  a  second  order  polynomial).  Less  than  one 
percent  error  appears  in  the  mesh  with  10  elements,  and  these  results  are  depicted  in 
Figure  4.3.  Note  that  the  error  at  element  edges  is  significantly  smaller  than  the  cen¬ 
troids.  This  is  an  advantage  of  enforcing  boundary  conditions  at  the  edges.  Because 
the  internal  displacement  of  an  element  is  determined  by  the  average  displacement 
of  the  two  edges,  it  will  always  have  error  even  if  the  solution  at  the  edges  is  exact 
(unless  the  exact  solution  is  linear  or  constant).  Because  the  greatest  error  occurs 
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Table  4.1:  Mean  Error  in  each  Variable  for  an  Axial  Rod  with  Distributed  Loads 


Elements 

u 

u 

P 

P 

7 

K 

F 

F 

M 

M 

1 

0.3333 

2E-5 

0.3333 

2E-5 

3E-5 

4E-6 

0 

0 

0 

0 

5 

0.0213 

IE-5 

0.0213 

8E-6 

IE-5 

8E-6 

2E-16 

IE-16 

2E-16 

IE-16 

10 

0.0062 

IE-5 

0.0062 

8E-6 

IE-5 

IE-5 

IE-16 

6E-17 

IE-16 

6E-17 

20 

0.0018 

IE-5 

0.0018 

IE-5 

IE-5 

IE-5 

IE-16 

8E-17 

IE-16 

8E-17 

30 

0.0008 

IE-5 

0.0008 

9E-6 

9E-6 

2E-5 

6E-6 

6E-6 

6E-6 

6E-6 

Nondimensionalized  Deformation  Nondimensionalized  Rotation 


Figure  4.3:  Nondimensionalized  deformation  and  twist  for  a  rod  with  a  distributed 
axial  load  and  torque. 


in  the  displacement  at  the  centroids,  this  quantity  is  used  to  determine  convergence. 
Figure  4.4  illustrates  the  convergence  in  the  displacement  solutions  for  problems  with 
rods.  Since  the  error  is  nearly  identical  in  both  the  displacement  and  twist  for  the 
uniform  rod  with  distributed  loads,  only  the  displacement  error  is  presented. 

For  the  final  case,  a  24-inch  tapered  aluminum  rod  is  subject  to  a  1000  lb 
tip  load  and  1000  in-lb  torque  as  shown  in  Figure  4.5.  Individual  elements  have  a 
constant  cross  section,  which  is  determined  by  the  average  diameter  over  the  length 
they  span.  As  more  elements  are  used  the  taper  is  modeled  with  greater  resolution, 
and  the  solution  converges  as  shown  in  Table  4.2.  The  following  relationships  are  used 
to  obtain  the  analytical  solution  for  a  cantilevered  rod  with  a  circular  cross  section 
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(a)  Uniform  Rod,  Distributed  Loads 


Figure  4.4:  Mean  error  versus  number  of  elements  for  problems  with  rods. 


Table  4.2:  Mean  Error  in  each  Variable  for  the  Tapered  Rod  Problem 


Elements 

u 

u 

7 

P 

P 

K 

1 

0.3333 

0.1111 

7E-6 

0.7297 

0.3227 

2E-6 

5 

0.0226 

0.0040 

IE-5 

0.0518 

0.0139 

6E-6 

10 

0.0065 

0.0001 

7E-6 

0.0148 

0.0034 

9E-6 

20 

0.0018 

2E-4 

6E-6 

0.0041 

0.0008 

IE-7 

30 

0.0001 

IE-4 

7E-6 

0.0020 

0.0004 

8E-6 

A(x),  radius  r(x),  length  L,  torsional  rigidity  J(x),  and  constant  taper  ratio  t: 


A{x) 

J{x) 

y(x) 

k(x) 


7 r 


r0  1 


iN1- 


p 


EA(x) 

T 

GJ(x) 


F(x) 

=  P 

M(x) 

=  T 

u(x) 

fx 

=  /  y(x)  dx 

J  0 

px 

6{x) 

=  /  k(x)  dx 

J  0 

(4.4) 


The  convergence  for  this  solution  is  based  on  the  mean  error  from  the  exact 
solution,  where  the  displacements  at  the  element  centroids  have  the  greatest  error. 
As  in  the  previous  problem,  the  displacement  solution  is  converged  (within  one  percent 
error)  at  10  elements  (see  Figure  4.6).  Since  the  torsional  rigidity  is  a  fourth  order 
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p 


(a)  Exact  Geometry  (b)  Finite  Element  Representation 

Figure  4.5:  Geometry  of  a  tapered  aluminum  rod  with  a  50%  taper  ratio  and  the 
finite  element  representation  with  5  elements 


Nondimensionalized  Axial  Deformation  Nondimensionalized  Axial  Rotation  (Angle  of  Twist) 


(a)  Deformation  (b)  Twist 

Figure  4.6:  Nondimensionalized  deformation  of  a  tapered  rod  with  an  axial  tip  load 
and  torque. 

function,  the  angle  of  twist  does  not  converge  as  quickly.  It  is  within  a  percent  at  20 
elements.  The  complete  solution  is  located  in  Appendix  A. 


J^.2  Timoshenko  Beams 

Next,  the  algorithm  is  applied  to  problems  of  transverse  loading  and  bending. 
These  problems  are  nonlinear  and  have  more  complex  solutions  than  the  axial  rod. 
First,  a  12-inch  aluminum  beam  is  cantilevered  and  subject  to  a  vertical  tip  load  of 
1000  lb  as  shown  in  Figure  4.7a.  The  analytical  solution  for  displacement  is  a  third 
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I- 


(a)  Tip  Load  (b)  Distributed  Load 

Figure  4.7:  Geometry  and  configuration  of  a  Timoshenko  beam  with  transverse 

loads. 

order  polynomial.  The  following  equations  are  the  well-known  analytical  solutions  for 
Euler- Bernoulli  beams  [25]: 


EIv  yu'z\x)  =  ~ uz(x ) 
ElyyU'^x)  =  V,(X) 
FIyyUz(x)  =  My(x) 


U'Z(X)  =  -Jr-  [  My(x)dx 
Xjlyy  J  0 

uz(x)  =  — —  /  /  My(x)dxdx 

ElyyJo  Jo 

(4.5) 


Additional  terms  are  required  to  include  the  translational  displacement  due  to  shear 
forces  (which  is  assumed  to  be  zero  in  Euler-Bernoulli  beams),  and  when  combined 
these  yield  equations  for  a  Timoshenko  beam. 


Fz(x)  =  FZ(L) 
Fz{L)x 


My{x) 


=  My{ 0)  -  /  Fz(x)dx  1 

Jo 


=  2E, 


(2  L 


x 


uz(x)  = 


F^*2  (3 L  -  x )  +  F’(L)X 


yy 


6  EL 


yy 


AG 


(4.6) 


Based  on  the  choice  of  constitutive  equations,  the  algorithm  can  model  both  types  of 
beams.  It  involves  choosing  the  effective  area  ( K )  in  the  two  shear  directions  (zero 
for  Euler-Bernoulli).  Because  this  is  a  mixed  formulation,  the  matrices  containing  the 


(a)  Transverse  Shear  (b)  Bending  Moment 

Figure  4.8:  Mean  error  versus  number  of  elements  for  Timoshenko  beams. 

constitutive  and  inertia  properties  need  not  be  invertible,  and  thus  a  zero  shear  area 
may  be  specified. 

As  the  number  of  elements  is  increased,  the  result  approaches  the  exact  solu¬ 
tion.  Figure  4.8  presents  the  convergence  graphically.  Less  than  one  percent  error 
remains  with  a  mesh  of  10  elements,  using  the  displacement  at  the  element  centroids 
as  the  convergence  criteria  (Figure  4.9a).  Convergence  for  all  four  Timoshenko  beam 
configurations  is  displayed  in  Table  4.3. 

Next,  the  tip  load  at  the  free  end  is  removed  and  a  distributed  shear  load  of  100 
lb/in  is  applied  along  the  perpendicular  axis  as  shown  in  Figure  4.7b.  The  analytical 
solution  is  given  by  the  following  equations: 


Fy(x) 

Mz(x) 

0z{x) 

Uy(x) 


Fy{L )  -Vy(x)x 
Mz( 0)  —  f  Fy{x)  dx 

Jo 


VyX 


6  El 


(x 


ZZ 

2 


VyX  {x2 


24  EL 


3  Lx  +  3L2) 

-  4 Lx  +  6 L2)  + 


Fv(x) 

AG 


dx 


(4.7) 
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Nondimensionalized  X  Deformation 


Table  4.3:  Convergence  of  Timoshenko  Beam  Problems 


Loading  Condition 

Mean  Error  for  Each  Mesh 

1 

5 

10 

20 

30 

Bending  Moment 
(Distributed) 

u 

0.2000 

0.0071 

0.0058 

0.0040 

0.0030 

u 

0.2500 

0.0180 

0.0056 

0.0017 

0.0008 

p 

0.3333 

0.0213 

0.0062 

0.0018 

0.0008 

p 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

Bending  Moment 

(Tip) 

u 

1.0000 

0.0460 

0.0122 

0.0061 

0.0041 

u 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

p 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

p 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

Transverse  Load 
(Distributed) 

u 

0.3743 

0.1260 

0.0028 

0.0024 

0.0019 

u 

0.0000 

0.0195 

0.0066 

0.0020 

0.0010 

p 

0.1429 

0.0282 

0.0088 

0.0027 

0.0013 

p 

0.5000 

0.0135 

0.0026 

0.0008 

0.0003 

Transverse  Load 

(Tip) 

u 

0.1979 

0.1834 

0.0030 

0.0023 

0.0018 

u 

0.2492 

0.0181 

0.0057 

0.0019 

0.0010 

p 

0.3336 

0.0214 

0.0063 

0.0018 

0.0009 

p 

0.0004 

0.0000 

0.0000 

0.0000 

0.0000 

Nondimensionalized  Deformation 


Nondimensionalized  Deformation 


(a)  Tip  Load  Configuration 


(b)  Distributed  Load  Configuration 


Figure  4.9:  Nondimensionalized  deformation  of  a  Timoshenko  beam  with  transverse 
loads. 
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(a)  Tip  Moment  (b)  Distributed  Moment 

Figure  4.10:  Geometry  and  configuration  of  a  Timoshenko  beam  with  bending 

moments. 

For  this  case  the  displacement  solution  is  a  fourth-order  polynomial,  which  is  the 
highest  order  for  this  class  of  problems.  The  data  is  accurate  within  a  percent  using 
a  mesh  of  10  elements  (Figure  4.9b). 

The  same  beam  is  also  loaded  with  a  1000  in-lb  bending  moment  at  the  tip 
(Figure  4.10a)  and  a  distributed  moment  of  100  in-lb/in  (Figure  4.10b).  For  a  tip 
moment,  the  exact  equations  are  as  follows: 


Fy(x) 

Mz{x) 

0z{x) 

Uy(x) 


0 


Mz(  0) 
Mz{  0)x 
EIZZ 
Mz{0)x 2 
2  EIZZ 


(4.8) 


65 


Nondimensionalized  Deformation 


Nondimensionalized  Deformation 


(a)  Tip  Moment  Configuration  (b)  Distributed  Moment  Configuration 

Figure  4.11:  Nondimensionalized  deformation  of  a  Timoshenko  beam  with  bending 
moments. 

For  a  distributed  moment,  the  order  of  the  solution  is  increased  and  the  following 
relationships  are  used: 


Fy(x)  =  0 


Mz(x)=Mz(  0) 


9z(x) 

Uy(x) 


mzx 

2EIZZ 
mzx 2 
6  EIZZ 


mz(x)dx 
(2  L  —  x) 

(3  L  —  x) 


(4.9) 


In  each  configuration  the  resultant  force  and  force  strains  are  zero.  In  both  cases 
accurate  results  are  achieved  with  10  elements,  as  depicted  in  Figure  4.11. 

The  tests  with  Timoshenko  beams  illustrate  the  algorithm’s  capability  to  handle 
simple  beam  configurations  and  loading.  While  additional  boundary  conditions  (such 
as  simply  supported)  are  not  included  here,  the  analytical  solutions  are  of  the  same 
order  and  should  be  expected  to  converge  in  the  same  manner. 
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4-3  Cantilevered  Elastica 


The  cantilevered  elastica  is  used  to  test  the  algorithm  against  a  highly  nonlinear 
problem.  Hopkins  and  Ormiston  [30]  use  it  to  demonstrate  that  linear  elements, 
when  constrained  to  move  with  their  “parent”  elements,  can  be  combined  to  capture 
nonlinear  deformations  in  beams.  Elastica  is  the  shape  of  the  elastic  curve  that  comes 
from  solving  the  differential  equation  for  a  beam  with  large  deflections  [25] : 


HI  [i  +  (gy]3/2 

This  relationship  provides  an  analytical  basis  for  comparison.  For  this  case  the  beam 
and  loading  configuration  from  Figure  4.10a  are  used,  and  the  modulus  of  elasticity 
is  decreased  to  10xl03  psi.  This  makes  the  beam  very  elastic  and  it  deforms  easily 
under  small  loads.  First,  a  500  in-lb  tip  moment  is  applied,  deflecting  the  beam 
back  past  its  root.  Next,  an  800  in-lb  moment  is  applied  to  curl  the  beam  into  a 
nearly  complete  circle.  Results  for  30  elements  are  displayed  in  Figure  4.12,  with  the 
deformed  coordinates  nondimensionalized  by  the  radius  of  curvature. 

In  this  problem,  an  initial  guess  of  zero  for  the  solution  is  not  satisfactory,  and 
does  not  always  reach  a  solution.  This  is  a  unique  problem  with  nonlinear  equation 
solvers  which  must  be  addressed.  An  incremental  technique  is  used  (discussed  in 
chapter  3),  dividing  the  load  into  ten  equal  steps  and  updating  the  initial  guess  after 
each  increment  is  solved.  In  this  manner  the  initial  guess  is  never  very  far  from  the 
actual  solution. 

Because  the  applied  load  is  a  tip  moment,  the  curvature  (p)  is  a  constant  value, 
forming  a  circle  that  satisfies  the  following  equation: 


(4.10) 


M  _  1 
~EI  ~  ~p 


(4.11) 


This  gives  an  exact  solution  for  comparison.  For  other  loading  conditions  (such  as 
a  tip  load),  the  equations  are  transcendental  and  must  be  solved  numerically.  To 
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Elastica  Solution 


Elastica  Solution 


(a)  500  in-lb  tip  moment  (b)  800  in-lb  tip  moment 

Figure  4.12:  Cantilevered  elastica  results  for  a  tip  moment. 

Table  4.4:  Summary  of  Convergence  for  the  Cantilevered  Elastica  Problem 


Loading  Condition 

Mean  Error  For  Each  Mesh 

5 

10 

20 

30 

40 

Tip  Moment 

500in-lb 

u 

0.4586 

0.0388 

0.0214 

0.0093 

0.0067 

u 

0.0721 

0.0177 

0.0038 

0.0024 

0.0017 

6 

0.0122 

0.0023 

0.0005 

0.0002 

0.0001 

§ 

0.0027 

0.0005 

0.0001 

0.0000 

0.0000 

Tip  Moment 

800in-lb 

u 

1.7719 

0.4195 

0.0260 

0.0152 

0.0095 

u 

3.1515 

0.2880 

0.0222 

0.0066 

0.0040 

6 

0.2957 

0.0270 

0.0027 

0.0011 

0.0006 

9 

0.3702 

0.0303 

0.0019 

0.0004 

0.0002 

evaluate  convergence,  the  x-z  coordinates  of  the  solution  are  compared  with  those 
of  the  exact  solution  (4.11),  and  the  mean  error  is  computed  using  equation  (4.2). 
Figure  4.13  presents  the  graphical  convergence  of  the  solutions. 

In  the  most  extreme  case,  the  mean  error  in  u  at  the  centroids  is  less  than  a 
percent  with  40  elements.  Table  4.4  depicts  the  convergence  for  both  loading  condi¬ 
tions.  While  the  scenario  of  curling  a  beam  into  a  circle  does  not  fit  the  application 
of  a  wing  or  rotor  blade,  it  demonstrates  effectiveness  for  an  exaggerated  case  and 
places  confidence  in  the  algorithm’s  ability  to  handle  highly  nonlinear  problems. 
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Figure  4.13:  Mean  error  versus  number  of  elements  for  the 

Cantilevered  Elastica. 

4-4  Beam  with  a  Follower  Force 

The  final  static  problem  involves  a  cantilevered  beam  with  a  follower  force  at 
the  tip  as  depicted  in  Figure  4.14.  Follower  forces  are  typical  of  aerodynamic  loads, 
which  are  functions  of  the  body’s  orientation.  As  the  body  deforms,  the  loads  move 
with  it.  In  this  algorithm  the  applied  loads  are  specified  in  the  B  frame  (the  deformed 
frame),  and  they  move  with  the  beam  as  it  deforms.  This  is  not  obvious  with  small 
displacements,  but  becomes  evident  as  the  deformation  increases.  In  this  problem 
the  nonlinear  effects  of  a  follower  force  are  captured.  Here,  the  aluminum  beam  is 
72  inches  long  with  a  6x1  inch  cross  section,  and  the  applied  load  is  1  kip.  By  using 
kips  as  the  basic  unit  of  force,  the  state  vector  is  scaled  well  and  the  algorithm  runs 
efficiently  and  quickly.  The  tip  load  changes  its  orientation  to  stay  perpendicular 
to  the  beam,  making  it  a  follower  force.  In  order  to  designate  a  force  that  is  not  a 
follower  force,  it  must  be  premultiplied  by  CbB  at  each  time  interval.  This  is  possible 
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V 


(a)  Geometry  and  Loading  (b)  Follower  Force 

Figure  4.14:  The  follower  force  is  implemented  as  a  tip  load  that  stays  perpendicular 
to  the  surface  as  the  beam  deforms. 


but  adds  complexity  to  the  system  equations.  It  is  required,  however,  for  certain 
forces  such  as  those  associated  with  gravitational  or  magnetic  fields. 

At  this  point,  the  algorithm  has  demonstrated  sufficient  convergence  for  the 
most  extreme  cases  of  elastica.  Therefore,  it  is  assumed  convergence  will  also  occur  in 
this  case.  The  problem  is  solved  several  times,  each  with  a  finer  mesh,  and  the  percent 
change  from  one  displacement  solution  to  the  next  is  recorded  in  Table  4.5.  At  30 
elements,  the  percent  change  is  less  than  one.  Figure  4.15a  illustrates  the  convergence 
of  the  displacement  solution  for  several  meshes.  Solutions  are  nondimensionalized  by 
the  maximum  value  of  the  finest  mesh  for  comparison.  Note  that  in  Figure  4.15b  the 
internal  shear  force  is  no  longer  constant  throughout  the  beam.  This  is  due  to  the 
change  in  orientation  of  the  force  and  the  large  rotation  of  the  beam.  Recall  that  the 
values  for  internal  force  are  given  in  the  deformed  frame.  With  large  deformations, 
the  orientation  of  this  frame  changes  significantly  along  the  length  of  the  beam.  At 
the  beam  root,  the  reaction  is  equal  to  the  z  component  of  the  applied  load  after 
deformation.  As  the  ^-coordinate  approaches  the  end  of  the  beam,  this  force  increases 
in  magnitude,  approaching  the  value  of  the  applied  load.  The  complete  solution  for 
all  variables  is  located  in  Appendix  A. 
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Nondimensional  Y  Coordinate 


Table  4.5:  Summary  of  Convergence  for  the  Follower  Force  Problem 


Elements 

Mean  Change  in  Displacement 

2 

0.2502 

3 

0.1287 

5 

0.1212 

7 

0.0650 

10 

0.0526 

20 

0.0090 

30 

0.0063 

Convergence  of  the  Follower  Force  Problem 


(a)  Displacement  for  Several  Meshes 


Internal  Resultants 


Figure  4.15:  Results  for  a  cantilevered  beam  with  a  transverse  follower  force  at  the 

tip- 
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Figure  4.16:  A  steady  rotating  beam  experiences  deformation 
due  to  inertial  forces. 

4-5  Beam  Rotating  at  a  Constant  Angular  Velocity 

While  all  previous  problems  have  been  in  static  equilibrium,  this  algorithm  is 
also  capable  of  solving  steady  problems  that  are  in  dynamic  equilibrium.  For  problems 
that  do  not  begin  at  rest,  a  complete  set  of  initial  conditions  is  required  (hi,  pi,  P\, 
Hi).  Some  of  these  variables  may  be  unknown,  and  therefore  the  steady-state  solver 
must  be  used  first  to  determine  their  values.  The  constraint  imposed  by  equation 
(3.106)  is  not  that  velocities  and  momenta  be  zero,  but  that  they  are  time  invariant. 
In  other  words,  it  is  a  steady-state  condition  rather  than  a  static  condition.  To 
demonstrate  this,  the  algorithm  is  applied  to  a  beam  rotating  at  a  constant  angular 
velocity.  The  beam  is  cantilevered  to  a  hub,  which  rotates  at  a  constant  rate.  The 
velocities  and  a ;&  are  specified  for  each  element  to  generate  a  beam  which  is  rotating 
at  a  constant  velocity  about  its  root  with  fixed-free  boundary  conditions.  In  this 
configuration  the  beam  will  experience  elongation  due  to  the  inertial  forces  which 
hold  it  in  place,  as  illustrated  in  Figure  4.16. 
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For  this  problem,  the  centripetal  acceleration  of  a  point  in  the  deformed  beam 


is  given  by: 


a(x)  =  [r(x)  +  m(x)]  u2 


(4.12) 


Integrating  the  acceleration  over  the  length  of  the  beam  yields  the  following  expres¬ 
sion: 

F(x)  —  F(x  +  dx)  =  /  a(x)dm 


F{x  +  dx)  =  F(x)  —  /  \r(x)  +  u(x)\uj2m  dx 


F(x)  =  F( 0)  —  /  [r(x)  +  u(x)]u2m,  dx 
Jo 


(4.13) 


The  internal  force  at  the  root,  -F(O),  is  determined  by  solving  equation  (4.13)  for  the 
free  tip  condition,  where  F(£)  =  0: 


F(0)  =  F(£)  +  /  [r(x)  +u(x)]uj2mdx 

Jo 

This  relationship  is  substituted  for  -F(O)  to  obtain  the  following: 


(4.14) 


F(x)  =  /  [r(x)  +  u(x)]uj2m  dx  —  /  [r(x)  +  u(x)}uj2m  dx 

Jo  Jo 

[l 

F(x)  =  /  [r(x)  +  u{x)]uj2m  dx 


(4.15) 


For  axial  deformation  due  to  the  internal  forces,  the  following  equation  is  applied: 


u(x)  =  /  7  (x)dx 


u(x)  = 


AE 


F(x)  dx 


(4.16) 


Clearly,  the  relationship  formed  between  (4.16)  and  (4.15)  is  transcendental.  As  de¬ 
formation  increases,  the  internal  force  increases  which  makes  the  deformation  larger. 
For  stiff  solids,  where  the  deformation  is  small,  this  increase  in  internal  force  is  neg- 
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ligible.  The  internal  force  can  therefore  be  approximated  by  treating  the  beam  as  a 
rigid  body: 


a(x) 


r{x)  u> 


.2 


2 


(4.17) 


After  approximating  the  internal  force,  equation  (4.16)  is  used  to  determine  the  de¬ 
formation. 


(4.18) 


This  provides  a  fast  method  for  checking  data  to  ensure  it  is  converging  to  the  correct 
solution  when  the  material  is  known  to  be  stiff  and  experience  only  small  deforma¬ 


tions.  The  alternative  is  to  numerically  solve  equations  (4.15)  and  (4.16)  simultane¬ 


ously.  This  was  not  done,  however,  and  the  convergence  of  the  solution  was  based  on 
the  percent  change  in  deformation  between  finer  meshes  (as  in  the  previous  section). 
When  this  percent  change  is  sufficiently  small  (in  this  case  less  than  a  tenth  of  a  per¬ 
cent),  the  solution  is  converged.  The  results  are  also  compared  to  the  approximation 
from  equations  (4.17)  and  (4.18),  which  proves  to  work  well  for  aluminum  beams  but 
is  not  sufficient  for  very  elastic  solids. 

Six  cases  are  investigated  for  this  configuration,  including  three  different  ge¬ 
ometries  rotating  at  both  3Hz  and  20Hz.  The  first  geometry  is  the  12-inch  aluminum 
beam  from  Figure  4.7.  The  second  geometry  is  the  72-inch  beam  from  Figure  4.14. 
For  the  final  geometry,  the  modulus  of  elasticity  from  the  12-inch  beam  is  decreased 
to  10xl02  psi,  one  order  of  magnitude  smaller  than  the  elastica  problem.  In  this  case 
the  deformation  and  internal  forces  are  greater  than  the  rigid  approximation,  partic¬ 
ularly  at  high  speeds.  This  was  expected,  because  the  material  is  not  stiff.  Table  4.6 
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Table  4.6:  Summary  of  Convergence  for  Steady  Rotation  Problems 


Configuration 

Mean  Difference  From  Previous  Mesh 

Geometry 

Speed 

2 

3 

5 

7 

10 

20 

30 

12  inch 

3  Hz 

0.5000 

0.0758 

0.0355 

0.0113 

0.0058 

0.0029 

0.0007 

20  Hz 

0.5101 

0.0773 

0.0363 

0.0115 

0.0060 

0.0030 

0.0007 

12  inch  elastic 

3  Hz 

0.5002 

0.0762 

0.0357 

0.0113 

0.0059 

0.0029 

0.0007 

20  Hz 

0.6254 

0.0946 

0.0451 

0.0139 

0.0072 

0.0039 

0.0009 

72  inch 

3  Hz 

0.5000 

0.0758 

0.0355 

0.0113 

0.0058 

0.0029 

0.0007 

20  Hz 

0.5004 

0.0759 

0.0355 

0.0113 

0.0058 

0.0029 

0.0007 

shows  the  percent  change  for  each  of  seven  successive  meshes  in  each  scenario.  At  30 
elements,  the  solution  is  fully  converged  for  all  cases.  It  is  interesting  to  note  that  all 
six  cases  have  approximately  the  same  percent  change  among  the  different  meshes, 
since  they  are  all  modeling  a  second-order  function. 

This  was  the  first  problem  where  scaling  difficulties  were  encountered.  Ulti¬ 
mately,  solutions  for  long  beams,  large  meshes,  and  high  velocities  were  unattainable 
with  standard  units  of  pounds,  inches,  and  seconds.  After  investigating  several  ap¬ 
proaches  to  rescaling  the  state  vector,  successful  convergence  was  achieved  when  the 
basic  unit  of  time  was  changed  to  milliseconds.  This  also  increased  the  basic  unit  of 
force  to  106  pounds,  or  megapounds.  Fortunately,  this  caused  all  field  variables  to 
appear  on  the  order  of  1CU3,  and  the  solution  converged  quickly.  The  exception  to 
this  occurred  for  the  elastic  beam  at  3  Hz  with  10  or  more  elements.  Here  it  was 
necessary  to  switch  back  to  standard  units  to  obtain  the  correct  solution.  Since  the 
speed  and  modulus  are  both  very  small  in  this  case,  using  large  units  for  force  is  not 
appropriate.  It  demonstrated  that  there  is  not  one  perfectly  robust  set  of  units  for 
all  problems,  but  that  the  user  must  know  in  advance  the  correct  scaling  to  use. 

Figure  4.17  shows  the  progression  of  the  solution  as  the  number  of  elements 
is  increased.  The  approximate  solution  from  equations  (4.17)  and  (4.18)  is  also  dis¬ 
played.  The  small  deformations  show  that  the  approximation  is  good  except  for  the 
elastic  case  at  high  speed.  In  this  case  the  model  converges  to  a  numerical  solution 
that  takes  into  account  the  transcendental  relationship  between  equations  (4.15)  and 
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Convergence  for  a  12  inch,  Aluminum  Beam  at  20Hz 


Convergence  for  a  12  inch,  Aluminum  Beam  at  3Hz 


(a)  12-in  Aluminum,  20Hz 


Convergence  for  a  12  inch,  Highly  Elastic  Beam  at  20Hz 


(c)  12-in  Elastic,  20Hz 


Convergence  for  a  72  inch,  Aluminum  Beam  at  20  Hz 


(e)  72-in  Aluminum,  20Hz 
Figure  4.17:  Convergence 


(b)  12-in  Aluminum,  3Hz 


Convergence  for  a  12  inch,  Highly  Elastic  Beam  at  3Hz 


(d)  12-in  Elastic,  3Hz 

x  -|q~3  Convergence  for  a  72  inch,  Aluminum  Beam  at  3Hz 


(f)  72-in  Aluminum,  3Hz 

for  a  cantilevered,  rotating  beam. 
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Figure  4.18:  Rotating  beam  with  a  constant,  distributed  load. 

(4.16).  The  displacements  and  forces  are  higher  than  would  be  estimated  by  treating 
the  beam  as  a  rigid  body.  This  is  an  excellent  example  of  an  application  for  this  type 
of  solver,  when  modeling  a  system  with  rigid  bodies  is  no  longer  a  valid  assumption. 
Complete  solutions  are  found  in  Appendix  A. 

4-6  Rotating  Beam  with  Applied  Loads 

The  final  steady-state  problem  combines  loading  and  prescribed  motion.  The 
geometry  used  is  the  same  as  in  the  previous  section.  For  this  scenario,  a  distributed 
transverse  load  of  50  lb/in  is  applied  over  the  length  of  the  beam,  as  shown  in  Figure 
4.18.  The  load  remains  in  the  deformed  coordinate  system  (a  follower  force)  as  the 
beam  deforms.  First,  the  solution  is  obtained  for  a  stationary  beam.  Next,  a  constant 
angular  velocity  of  3Hz  is  applied  about  the  2- axis,  and  the  beam  is  loaded  again  while 
rotating.  Both  cases  are  evaluated  with  the  steady-state  solver,  and  the  converged 
results  are  compared. 

This  problem  is  similar  to  a  rotor  blade  in  hover,  with  the  exception  that  the 
applied  load  is  constant  rather  than  elliptical.  This  is  done  for  simplicity,  though  with 
enough  elements,  an  elliptical  distribution  can  be  accurately  represented.  Convergence 
is  based  on  the  percent  change  in  the  displacement  solutions,  as  it  was  in  the  steady 
rotation  problem.  It  is  assumed  that  the  algorithm  will  converge  to  the  exact  solution, 
which  is  unknown.  This  assumption  is  based  on  performance  with  previous  problems 


77 


Table  4.7:  Mean  Change  in  the  Displacement  Solution  for  a  Rotating  Beam  with  a 
Distributed  Load  _ 


Elements 

Stationary 

Rotating 

10 

0.0952 

0.0991 

20 

0.0083 

0.0143 

30 

0.0056 

0.0083 

( i.e .  the  elastica  problem),  where  the  solution  was  within  a  percent  of  the  exact  and 
the  displacement  error  continued  to  decrease  as  more  elements  were  used.  Table  4.7 
presents  the  percent  change  in  each  solution  for  successive  meshes  of  5,  10,  20,  and 
30  elements.  The  beam  experiences  greater  deformation  while  stationary  than  when 
rotating.  The  difference  between  the  two  solutions  is  due  to  the  the  stiffening  effect 
of  the  rotation  (Figure  4.19).  The  beam’s  inertia  generates  an  axial  force,  and  this 
tension  reduces  the  amount  of  vertical  displacement. 

Units  of  megapounds,  inches,  and  milliseconds  were  used  for  this  test  case, 
since  this  was  required  for  the  problem  of  steady  rotation.  However,  convergence  of 
the  optimization  algorithm  was  significantly  slower  with  the  applied  load.  While  using 
kips,  inches,  and  seconds  was  more  efficient  for  the  stationary  problem,  it  was  not  as 
effective  with  the  added  rotation,  particularly  for  large  meshes.  This  illustrates  once 
again  the  scaling  problem  and  the  necessity  of  choosing  the  correct  units  in  order  for 
the  algorithm  to  converge.  The  complete  solutions  for  both  configurations  are  located 
in  Appendix  A. 

f.l  Axial  Vibration  of  Rods 

Having  tested  the  algorithm  against  several  static  and  steady  motion  problems, 
the  remaining  cases  introduce  time  accurate  scenarios  by  removing  the  constraint 
imposed  by  equation  (3.106).  The  steady-state  algorithm  is  applied  first  to  obtain 
the  full  set  of  initial  conditions,  which  are  introduced  back  into  the  equations  to  obtain 
the  solution  at  the  first  time  step.  The  results  from  each  time  step  become  initial 
conditions  for  the  subsequent  time  steps. 
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Deformation 
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Figure  4.19:  Displacement  of  a  rotating  beam  with  a  dis¬ 

tributed  load 


First,  the  algorithm  is  used  to  simulate  the  axial  vibration  of  a  fixed-free  rod. 
The  fundamental  frequency  for  a  cantilevered  rod  is  determined  from  the  following 
equation  [17]: 


^ n 


(4.19) 


Equations  (3.92  -  3.105)  reduce  to  a  linear  system  for  axial  problems.  Atilgan  and 
Hodges  solved  this  system  of  equations  for  problems  of  wave  propagation  in  rods  [3] . 
When  the  problem  is  linear,  solutions  are  obtained  by  assembling  and  solving  a  simple 
linear  algebra  problem  (Ax  =  b)  at  each  time  step.  Initially,  the  problem  was  solved 
using  this  method  to  reproduce  results  from  the  literature.  Afterwards,  the  nonlinear 
algorithm  was  applied  and  found  to  yield  the  same  solution  in  every  case. 


Standard  finite  element  models  perform  modal  analysis  on  structures  by  solving 
the  following  eigenvalue  problem  [17]: 


[K  -  u2nM]  D  =  0 


(4.20) 


This  is  accomplished  using  an  element  mass  matrix  ( K )  and  stiffness  matrix  (M), 
with  the  degrees  of  freedom  in  D  constrained  to  enforce  the  boundary  conditions. 
The  formulation  of  the  mass  matrix  determines  whether  the  estimate  for  the  natural 
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Space  Time  Propagation  of  Force 


Space  Time  Propagation  of  Force 


(a)  Step  Input  applied  at  t=0  (b)  Load  Released  from  Static  Equilibrium 

Figure  4.20:  Propagation  of  force  through  a  fixed-free  rod  with  Ax/ At  =  \J E / p. 

frequency  will  be  high  or  low.  Because  the  algorithm  used  in  this  research  does 
not  work  with  differential  equations,  it  is  not  suited  to  solve  the  eigenvalue  problem 
for  modal  analysis.  The  frequency  response  must  be  obtained  from  a  Fast  Fourier 
Transform  (FFT)  of  the  time  history. 

Consider  the  fixed-free  rod  in  Figure  4.1  with  a  100  lb  axial  load  applied  at  the 
tip.  The  system  is  initially  in  static  equilibrium.  At  t=0,  the  load  is  released,  and  the 
beam’s  deformation  is  measured  in  the  axial  direction  over  time.  A  similar  response 
is  obtained  when  the  beam  begins  at  rest  and  a  “step”  input  is  applied  (the  100  lb 
load  is  instantaneously  applied  at  t=0).  The  difference  is  in  the  equilibrium  position 
about  which  it  oscillates.  The  step  input  oscillates  about  the  static  equilibrium  point, 
while  releasing  the  load  causes  it  to  oscillate  about  zero.  For  all  of  the  remaining 
cases,  the  load  will  be  applied  initially  and  then  removed.  Figure  4.20  shows  the 
propagation  of  the  wave  in  space  and  time  for  each  case.  The  forces  and  x  coordinates 
are  nondimensionalized  for  comparison  with  the  literature  [3]. 

Testing  the  algorithm  on  this  problem  reveals  important  information  about  cl¬ 
ement  scaling  for  dynamic  problems.  When  the  element  aspect  ratio,  Ax /At,  is 
equivalent  to  the  wave  speed,  \JE / p,  the  beam  vibrates  at  the  exact  fundamental 
frequency.  This  holds  true  regardless  of  the  number  of  spatial  or  temporal  elements, 
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and  is  accomplished  because  the  wave  is  able  to  propagate  through  the  medium  at 
the  speed  of  sound.  This  is  depicted  in  Figure  4.20  as  the  wave  travels  through  a 
single  element  per  time  step,  moving  at  the  exact  speed  of  sound,  which  results  in  an 
oscillation  at  the  natural  frequency.  However,  if  the  ratio  Ax/ At  is  not  exactly  the 
same  as  the  wave  speed,  noise  appears  in  the  solution  which  can  cause  the  fundamen¬ 
tal  frequency  to  vary.  Figure  4.21  demonstrates  this  effect  using  several  different  time 
steps  for  a  single  element.  The  time  step  is  adjusted  such  that  the  element  aspect 
ratio  is  tested  both  above  and  below  the  wave  speed. 

For  the  fixed- free  rod  in  Figure  4.1,  equation  (4.19)  yields  a  fundamental  fre¬ 
quency  of  4137  Hz.  With  10,000  iterations  of  time  data,  the  maximum  number  of 
FFTs  allowed  is  8192  (it  must  be  a  power  of  2).  Applying  an  FFT  to  the  time  re¬ 
sponse,  the  natural  frequency  of  the  rod  is  determined  numerically  (see  Appendix  D 
for  details).  When  the  aspect  ratio  is  equivalent  to  the  wave  speed,  the  peak  fre¬ 
quency  occurs  at  the  expected  natural  frequency  for  the  rod.  However,  this  frequency 
appears  to  increase  as  the  time  step  becomes  smaller.  This  is  alarming  because  in 
general  one  expects  accuracy  to  improve  as  the  step  size  is  decreased  for  initial  value 
problems. 

Bau chau  [11]  discusses  problems  encountered  with  high  frequency  noise  creeping 
into  solutions  for  multibody  systems,  and  implements  an  energy  decaying  algorithm 
which  dissipates  this  noise  to  obtain  correct  solutions.  Whether  this  phenomenon 
is  the  same  is  unknown.  When  the  solution  is  obtained  using  larger  meshes  of  10 
or  20  elements,  a  shift  in  the  peak  frequency  does  not  occur  when  the  time  step  is 
varied.  This  is  illustrated  in  Figure  4.22.  The  noise  is  clear  in  the  time  response, 
but  frequency  analysis  reveals  that  for  multiple  elements  the  fundamental  frequency 
is  relatively  unchanged.  They  all  have  a  peak  at  the  expected  natural  frequency  for 
the  rod.  The  noise  observed  in  the  time  history  for  each  solution  does  not  shift  this 
peak  significantly,  only  make  it  broader  or  narrower.  The  exact  cause  of  the  frequency 
shift  for  a  single  element  is  unknown.  Application  of  an  energy  decaying  algorithm 
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Power  Spectral  Density 


Figure  4.21:  Effect  of  Ax/ At  on  the  axial  vibration  with  one 
element. 

may  correct  the  problem,  but  at  this  time  the  algorithm  has  not  yet  been  developed 
for  mixed  formulations,  and  is  beyond  the  scope  of  the  current  research. 

Analysis  of  the  time  response  for  various  element  sizes  reveals  further  effects  of 
the  noise.  When  Ax/ At  is  the  same  as  the  wave  speed,  the  forces,  momenta,  and 
velocities  appear  as  square  waves.  The  displacement  field  follows  a  triangular  wave 
pattern  (see  Figure  4.23).  This  indicates  abrupt  changes  in  velocity  (corresponding 
to  infinite  accelerations)  which  would  not  occur.  This  is  a  result  of  using  constant 
shape  functions  for  the  field  quantities.  The  wave  discretely  steps  through  the  rod 
rather  than  moving  fluidly  as  through  a  continuum.  The  actual  response  should  be  a 
sine  wave.  Also,  the  sampling  rate  is  equal  to  twice  the  frequency  of  vibration,  which 
in  general  would  result  in  poor  resolution.  Oddly,  it  gives  the  exact  solution  for  one 
element,  whereas  solutions  with  smaller  time  steps  are  incorrect.  For  example,  if  more 
sampling  points  were  added  to  Figure  4.23,  one  might  expect  it  to  appear  more  like 
a  sine  wave  and  be  closer  to  the  correct  frequency.  Instead,  the  frequency  is  driven 
higher,  which  is  the  incorrect  solution. 
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Figure  4.22:  Effect  of  varying  Ax/ At  on  the  axial  vibration 

of  a  rod  with  multiple  elements. 


Tip  Deflection 


Figure  4.23:  Tip  displacement  for  a  rod  vibrating  at  its  nat¬ 
ural  frequency  with  Ax/ At  =  a/ E / p ,  Nx  =  1. 
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(a)  10  Elements,  At  =  0.003ms  (b)  20  Elements,  At  =  0.006ms 

Figure  4.24:  Space  time  propagation  of  force  through  a  fixed-free  rod  when 

Ax/ At  7^  a /E/p. 


With  multiple  elements,  the  shape  of  the  response  becomes  noisy  and  distorted 
when  the  time  step  is  not  perfectly  adjusted  to  match  the  wave  speed  (see  Figure  4.24), 
even  when  the  time  step  is  made  sufficiently  small  to  obtain  resolution  at  the  expected 
frequency.  This  is  opposite  what  one  would  expect  from  using  a  smaller  time  step, 
which  generally  improves  resolution  of  the  response  and  results  in  a  smooth  curve. 
Nevertheless,  the  frequency  response  from  Figure  4.22  indicates  that  these  rods  are 
still  oscillating  at  their  natural  frequencies.  The  conservation  of  energy  is  also  demon¬ 
strated  numerically  for  each  case  by  applying  equations  (3.58)  and  (3.59)  (summing 
up  the  total  kinetic  and  potential  energy  for  each  individual  time  step),  demonstrat¬ 
ing  that  total  energy  remains  constant  for  the  full  10,000  iterations  (see  Figure  4.25). 
Complete  solutions  are  shown  in  Appendix  B,  and  are  nondimensionalized  by  their 
maximum  values  for  simplicity. 


4-8  Torsional  Vibration  of  Shafts 

Next,  the  algorithm  is  used  to  determine  the  fundamental  frequency  of  vibration 
for  the  same  rod  in  torsion.  To  perform  this,  a  100  in-lb  torque  is  initially  applied  to 
the  rod  in  static  equilibrium.  This  load  is  released  at  t=0,  and  the  time  history  of 
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Figure  4.25:  Numerical  conservation  of  energy  for  the  vibra¬ 
tion  of  an  axial  rod,  20  elements,  At  =  0.006ms 


twist  and  internal  torque  is  recorded.  The  natural  frequency  is  given  by  [17]: 


(4.21) 


Notice  that  the  shear  modulus  (G)  takes  the  place  of  Young’s  modulus  ( E )  from  the 


axial  vibration  problem.  Otherwise  there  is  no  difference.  For  the  12-in  aluminum 
rod,  this  natural  frequency  is  2518  Hz. 


First,  the  ratio  Ax/ At  is  set  equal  to  the  wave  speed,  y/G / p,  in  order  to  obtain 


results  similar  to  those  in  Figure  4.20.  Since  the  solution  for  both  the  torsional 


vibration  of  shafts  and  axial  vibration  of  rods  is  a  second-order  partial  differential 


equation  (PDE),  the  results  are  similar.  With  a  single  element,  the  peak  frequency 
is  sensitive  to  the  time  step  used,  but  when  the  aspect  ratio  is  equivalent  to  the 
wave  speed  it  is  correct.  With  multiple  elements,  the  peak  frequency  is  unchanged. 
These  results  are  similar  in  form  to  the  axial  vibration  problem.  Figure  4.26  shows 
the  propagation  of  the  torque  through  the  rod  for  both  the  case  where  the  aspect 
ratio  is  exactly  equal  to  the  wave  speed  and  one  case  where  it  is  not.  For  these 
other  cases  additional  noise  appears,  but  the  fundamental  frequency  is  unchanged  if 
multiple  elements  are  used.  The  frequency  response  for  each  simulation  is  captured 
in  Figure  4.27.  The  only  simulation  that  did  not  produce  the  correct  frequency  used 
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(a)  20  Elements,  At  =  0.01ms 


(b)  10  Elements,  At  =  0.0099ms 


Figure  4.26: 


Space  time  propagation  of  torque  through  a  fixed-free  rod. 


Power  Spectral  Density 


Figure  4.27:  Frequency  Response  for  Torsional  Vibration  with 
Various  Time  Steps 


a  single  element  and  a  step  size  of  0.1  ms.  It  is  interesting  to  note  that  by  changing 
the  step  size  to  0.099  ms,  the  frequency  is  corrected.  Even  more  interesting  is  that  for 
a  frequency  of  2500  Hz  one  should  expect  to  use  a  sampling  size  of  no  more  than  0.04 
ms,  to  provide  10  points  per  period  of  oscillation.  In  this  case,  the  standard  rule  of 
thumb  does  not  seem  to  apply.  The  necessary  sampling  rate  seems  to  be  dependent 
on  the  element  size  more  than  the  frequency  of  oscillation.  With  multiple  elements,  it 
converges  regardless  of  the  time  steps  that  were  used.  Complete  information  from  the 
simulations  is  presented  in  Appendix  B,  and  is  nondimensionalized  by  the  maximum 
values. 

4-9  Transverse  Vibration  of  Beams 

Problems  of  transverse  bending  in  beams  are  more  complex  than  axial  vibration 
in  rods,  involving  coupling  between  the  displacements  and  rotations.  The  analytical 
solution  is  based  on  a  fourth-order  PDE.  Unlike  axial  and  torsional  vibration,  there 
is  not  a  unique  wave  speed  associated  with  the  propagation  of  forces  and  moments. 
The  beam  will  deform  axially  and  transversely  at  different  frequencies.  Choices  for 
time  steps  were  made  to  obtain  sufficient  resolution  to  capture  the  expected  natural 
frequencies.  The  first  bending  frequency  for  a  cantilevered  beam  is  calculated  with 
the  following  equation  [17]: 


(4.22) 


To  excite  the  bending  modes  of  a  beam,  it  is  loaded  transversely  with  a  100  lb  tip 
load  in  static  equilibrium.  At  t=0,  the  load  is  removed  and  the  flapping  motion  of 
the  beam  is  simulated.  Using  the  72-inch  aluminum  beam  from  previous  problems, 


the  natural  frequency  for  bending  about  the  y  axis  is  6.2  Hz.  Time  steps  of  1  ms, 


16  ms,  and  0.145  ms  were  used.  This  generates  approximately  10  and  160  points  per 
expected  period  of  flapping  vibration  (for  16  ms  and  1  ms),  while  the  third  choice 
gives  more  resolution  in  order  to  capture  higher  frequency  oscillations  in  the  axial 
direction. 
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Figure  4.28:  Frequency  Response  for  Bending  Vibration  with 
Various  Time  Steps 

The  frequency  analysis  of  transverse  displacement  yields  the  correct  natural 
frequency  for  bending  in  that  direction.  All  simulations  were  performed  using  either 
10  or  20  elements,  since  this  was  the  minimum  for  static  solutions  to  converge.  The 
results  are  depicted  in  Figure  4.28.  All  show  a  peak  frequency  at  the  natural  bending 
frequency  for  the  beam.  The  complete  simulation  data  is  contained  in  Appendix  B, 
and  is  left  in  the  original  units  to  distinguish  the  relative  magnitudes  of  axial  and 
transverse  forces  and  displacements. 

4-10  Spin  Up  Maneuver 

The  spin  up  is  a  simple  maneuver  that  is  commonly  simulated  in  the  literature 
for  multibody  dynamics  programs  [20,36].  For  this  maneuver,  the  72- inch  aluminum 
beam  is  attached  to  a  hub  (cantilevered)  and  accelerated  from  rest  to  180  rpm  (3Hz) 
about  the  z  axis.  An  alternate  approach  would  be  to  pin  the  beam  and  apply  a 
moment  about  the  root,  observing  the  angular  displacement.  The  difference  is  that  the 
bending  vibrations  are  transmitted  to  the  root  as  internal  forces  and  moments  when 
the  beam  is  cantilevered.  In  the  response,  the  beam  will  lag  during  the  acceleration 
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Transverse  Tip  Displacement 


(a)  Axial  Displacement 
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(b)  Transverse  Displacement 


Figure  4.29:  Time  history  for  the  spin  up  of  a  72-in  aluminum  beam,  At  =  0.5ms, 


Nx  =  10 


until  the  beam  reaches  a  steady  rotation  speed,  then  vibrate  about  an  equilibrium 
point  at  its  natural  frequency.  Axial  displacement  will  also  be  observed  due  to  the 
inertial  forces.  For  the  simulation,  the  following  angular  velocity  is  prescribed: 


{6m  rad,/ sec,  t/tf  <  0.2 

67t  rad/ sec,  t/tf  >  0.2 


(4.23) 


With  At  =  0.5ms,  Nx  =  10,  and  10000  iterations,  this  results  in  a  5  second  simulation 
where  the  beam  is  accelerating  from  0  to  3  Hz  during  the  first  second  and  then  holds 
a  constant  angular  velocity  thereafter.  The  time  history  of  displacement  is  depicted 
in  Figure  4.29.  Complete  results  are  contained  in  Appendix  C. 

The  natural  lag  frequency  for  the  72-inch  aluminum  beam  as  determined  by 
equation  (4.22)  is  37.12  Hz.  Figure  4.30  displays  the  frequency  content  of  the  lateral 
displacement,  and  reveals  that  the  fundamental  lag  frequency  of  the  beam  during 
this  maneuver  is  accurate.  The  time  history  also  reveals  that  steady-state  values  for 
displacement  match  those  found  from  solving  the  steady-state  solution  of  a  rotating 
72-inch  beam  at  3  Hz. 
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Figure  4.30:  Frequency  Response  of  the  Spin  Up  Maneuver 
for  a  72  in  aluminum  beam,  At  =  0.5 ms,  Nx  =  10 

4-11  Flapping  Maneuver 

To  simulate  a  flapping  wing,  the  12-inch  aluminum  beam  from  Figure  4.7  is 
used.  This  beam  is  cantilevered  and  given  a  periodic  angular  velocity  about  the  y 
axis.  Because  it  is  cantilevered,  the  mount  that  it  is  attached  to  moves  with  it.  An 
alternative  is  to  pin  the  beam  and  apply  a  sinusoidal  moment.  In  this  case,  the  beam 
oscillates  at  2  Hz,  reaching  a  maximum  of  30  degrees  above  and  below  the  horizon. 
This  oscillation  is  forced  by  prescribing  the  values  for  Vb  and  a which  make  up  the 
“rigid”  motion  of  the  beam.  The  same  simulation  is  also  performed  with  the  beam 
from  the  cantilevered  elastica  problem.  This  beam  has  the  same  geometry  as  the 
12-inch  aluminum  beam  but  the  modulus  of  elasticity  is  10xl03  psi,  three  orders  of 
magnitude  smaller  than  aluminum.  This  beam  will  experience  much  larger  deflections 
in  the  flapping  motion,  and  will  have  a  significantly  smaller  fundamental  frequency 
in  bending. 

The  ^-coordinate  of  the  tip  is  recorded  in  the  inertial  frame  to  demonstrate  this 
motion  (see  Figure  4.31).  This  is  accomplished  by  integrating  the  prescribed  velocity 
(vb)  in  the  inertial  frame  to  obtain  the  prescribed  position  of  the  tip,  then  adding 
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Tip  Motion  of  a  Flapping  Beam 


Tip  Motion  of  a  Flapping  Beam 


(a)  Aluminum  Beam,  E  =  10 eQpsi  (b)  Highly  Elastic  Beam,  E  =  10e3  psi 

Figure  4.31:  Inertial  tip  response  in  the  flapping  maneuver  for  a  12-in  beam, At  = 
0.2ms,  Nx  =  10 

the  deformation  at  each  time  step.  The  noise  observed  is  due  to  the  excitation  of 
the  flapping  frequency  of  the  beam,  which  is  evaluated  by  equation  (4.22)  as  222 
Hz  for  aluminum  and  7  Hz  for  the  highly  elastic  beam.  A  time  step  of  0.2  ms  and 
10,000  iterations  provides  2  seconds  of  data,  giving  four  cycles  of  the  flapping  mo¬ 
tion  and  providing  22  points  of  data  for  each  period  expected  within  the  aluminum 
beam’s  natural  flapping  frequency.  The  frequency  response  in  Figure  4.32  indicates 
the  excitation  of  the  flapping  frequency  in  each  beam  during  the  maneuver. 

In  order  to  set  up  this  maneuver,  a  sinusoidal  angular  velocity  is  prescribed 
about  the  y  axis.  It  is  the  time  derivative  of  the  desired  flapping  motion.  To  obtain  a 
flapping  motion  that  oscillates  at  2  Hz  and  has  a  maximum  amplitude  of  30  degrees, 
the  following  relationship  is  used: 

OJt)  =  —  sin  ( -^—t]  (4.24) 

y[  J  6  V !000  J  K  J 

In  this  case  t  is  in  milliseconds.  The  time  derivative  gives  the  function  for  the 
prescribed  velocity,  which  is  calculated  to  give  a  discrete  value  for  tub  at  each  time 
interval: 
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Power  Spectral  Density 


(a)  Aluminum  Beam,  E 

Figure  4.32: 

At  =  0.2ms,  jV3 


Power  Spectral  Density 


(b)  Highly  Elastic  Beam,  E  =  10e3  psi 


10e6  psi 


Frequency  Response  of  the  Flapping  Maneuver  for  a  12-in  beam, 
=  10 


u>b(t)  = - cos  ( - 1\  (4.25) 

V  ;  3000  V1000  J 

The  beam  is  discretized  by  10  elements  in  space,  which  was  the  minimum  to 
obtain  accurate  solutions  for  the  Timoshenko  beam  problems.  The  frequency  response 
of  both  beams  indicate  oscillation  at  their  respective  natural  frequencies,  with  the 
elastic  beam  experiencing  much  larger  deformations.  Figure  4.31  best  illustrates  the 
response  of  the  tip,  showing  both  the  forced  oscillation  at  2  Hz  and  the  actual  position 
of  the  tip  which  includes  the  deformation.  The  aluminum  beam  experiences  very  small 
deformations,  while  the  elastic  beam  has  significant  deformation  in  addition  to  the 
prescribed  motion.  Complete  results  are  contained  in  Appendix  C. 
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V.  Conclusions 


5. 1  Summary  of  Results 

This  research  successfully  applied  HWP  to  the  development  of  multibody  dy¬ 
namics  software  for  flexible  bodies.  After  deriving  Hamilton’s  Law  for  beams  with 
closed  cross  sections  (a  technique  which  has  been  established  in  the  literature  [26]),  a 
space-time  finite  element  discretization  was  performed  to  generate  a  system  of  nonlin¬ 
ear  algebraic  equations.  These  equations  were  solved  numerically  for  common  prob¬ 
lems  in  engineering  mechanics  and  structural  dynamics.  This  discretization  scheme 
and  solution  algorithm  provide  an  alternative  to  existing  multibody  dynamics  pro¬ 
grams  by  avoiding  differential  equation  theory  altogether  and  using  optimization  tech¬ 
niques  to  satisfy  the  system  of  nonlinear  equations  at  each  time  step. 

By  enforcing  a  time  invariant  constraint  on  the  system  equations,  accurate  re¬ 
sults  were  obtained  for  problems  of  static  equilibrium  and  steady  state  motion.  Static 
problems  included  rods  in  tension  and  torsion,  beams  in  bending  and  shear,  the  can¬ 
tilevered  elastica  with  a  tip  moment,  and  a  long  flexible  beam  with  a  transverse 
follower  force.  Steady-state  problems  were  solved  using  the  same  constraints  and  in¬ 
cluded  steady  rotation  for  several  geometries,  with  and  without  transverse  loading, 
such  as  would  be  experienced  by  a  rotor  blade.  With  problems  where  the  analytical 
solution  exists,  convergence  was  demonstrated  to  within  a  percent  of  the  exact  so¬ 
lution.  Other  problems  were  solved  such  that  the  mean  change  in  the  displacement 
solution  was  less  than  one  percent  between  the  finest  meshes.  This  initial  algorithm 
demonstrated  satisfactory  performance  in  obtaining  steady-state  solutions  to  prob¬ 
lems,  which  allows  a  full  set  of  initial  conditions  to  be  obtained  for  any  dynamic 
problem. 

Testing  the  algorithm  on  steady-state  problems  was  an  iterative  process,  in¬ 
volving  several  changes  to  improve  robustness  for  different  classes  of  problems.  It 
revealed  some  important  lessons  for  solving  multibody  dynamics  problems  with  this 
approach.  An  incremental  technique  was  developed  for  nonlinear  problems  such  that 
the  initial  guess  is  always  close  to  the  solution.  Numerical  derivatives  were  used  to 


93 


project  the  guess  for  subsequent  time  steps  in  dynamic  simulations,  and  unit  changes 
were  required  to  improve  scaling  in  the  state  vector.  Finally,  the  use  of  an  analytical 
Jacobian  improved  efficiency  and  run  times  significantly. 

Removing  the  time  invariant  constraint  and  substituting  values  for  initial  con¬ 
ditions  allowed  the  algorithm  to  solve  dynamic  problems.  The  full  set  of  nonlinear 
equations  was  solved  at  each  time  step,  generating  a  new  set  of  initial  conditions 
for  subsequent  iterations.  This  approach  was  demonstrated  for  axial,  torsional,  and 
transverse  free  vibration  in  beams  and  for  simple  maneuvers  such  as  periodic  flapping 
and  an  angular  spin  up.  Frequency  response  of  the  data  revealed  vibrations  at  the 
expected  natural  frequencies  for  all  cases,  while  the  time  response  during  maneuvers 
behaved  as  expected.  The  exception  occurred  in  free  vibrations  with  a  single  element. 
For  this  case  the  peak  frequency  of  vibration  was  sensitive  to  the  time  step,  increas¬ 
ing  or  decreasing  with  the  element  aspect  ratio,  and  matching  the  exact  frequency 
only  when  the  aspect  ratio  was  equal  to  the  speed  of  sound  in  the  material.  This 
phenomenon  was  not  repeated  with  larger  meshes,  and  its  source  is  unknown  at  this 
time. 

5.2  Recommendations  for  Future  Research 

The  intention  of  this  research  is  to  serve  as  a  proof  of  concept  for  the  application 
of  HWP  to  flexible  body  dynamics.  While  many  classes  of  problems  were  investigated, 
the  algorithm  is  designed  to  handle  much  more.  For  example,  nearly  all  simulations 
were  performed  on  prismatic,  isotropic  beams.  This  was  done  for  simplicity,  in  order 
to  test  the  code  against  common  problems  and  obtain  reasonable  solutions.  Further 
applications  should  successfully  demonstrate  the  application  to  problems  of  initially 
curved  and  twisted  beams,  variable  geometries,  and  orthotropic  and  anisotropic  ma¬ 
terials.  The  algorithm  is  fully  equipped  to  handle  these  problems. 

Every  simulation  was  performed  with  a  cantilevered  boundary  condition.  This 
was  also  done  for  simplicity,  as  a  fixed-free  boundary  condition  is  the  easiest  to  model. 
The  algorithm  assembles  the  unknowns  into  a  state  vector  of  length  42 Nx.  With 
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different  boundary  conditions,  the  unknowns  change,  requiring  the  state  vector  to  be 
rearranged.  This  also  changes  the  form  of  the  Jacobian,  which  is  42NX  by  A2NX  and 
ties  directly  to  the  ordering  of  the  state  vector.  The  cantilevered  boundary  condition 
is  easy  to  model,  because  the  force  and  moment  vectors  at  the  tip  and  displacement 
and  rotation  vectors  at  the  root  are  known.  With  a  pinned  beam,  the  rotation  and 
moment  vectors  are  split  between  known  and  unknown  quantities.  The  relationship 
between  the  rotation  parameters  must  be  prescribed  for  the  planar  motion  of  a  pinned 
beam.  Because  these  add  complexity  to  a  new  algorithm,  they  were  omitted  for  this 
research.  An  architecture  that  allows  the  incorporation  of  all  types  of  boundary 
conditions  must  be  developed  for  this  algorithm  to  be  useful. 

The  extension  of  this  algorithm  to  a  true  multibody  dynamics  problem  has  not 
yet  been  demonstrated.  A  cantilevered  beam  is  a  single  body,  no  matter  how  many 
elements  it  is  discretized  into.  All  elements  are  continuous,  constraining  their  shared 
boundaries  to  the  same  values  of  force,  moment,  displacement,  and  rotation.  This 
worked  well  for  the  current  research,  simplifying  the  assembly  procedure.  However, 
the  extension  to  multibody  dynamics  will  require  the  ability  to  handle  discontinuities 
at  the  element  boundaries  in  order  to  connect  elements  with  various  types  of  joints. 
For  example,  two  beam  elements  are  connected  by  a  pinned  joint  if  their  shared  edges 
have  equal  values  for  displacement  and  force  but  not  rotation  and  moment.  Each  ele¬ 
ment  has  24  scalar  quantities  assigned  at  its  spatial  boundaries  (from  F\ ,  F2,  Mi,  M2, 
<?4,  <?2,  P4,  and  p2).  Of  these  quantities,  12  must  be  specified  as  boundary  conditions 
or  tied  to  another  element  by  a  specified  joint.  A  more  generalized  architecture  will 
make  use  of  this  requirement  during  the  assembly  process. 

A  disadvantage  to  the  current  approach  is  that  complex  problems  require  some 
knowledge  of  the  solution  in  advance  in  order  to  appropriately  scale  the  state  vector. 
A  robust  solution  technique  will  provide  a  generalized  method  for  scaling,  possibly  by 
nondimensionalizing  all  quantities  in  the  derivation.  This  has  not  been  fully  explored 
and  may  provide  a  way  to  eliminate  experimenting  with  units  in  order  to  get  the 
solution  to  converge. 
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The  appearance  of  high  frequency  content  in  the  time  accurate  solutions  was 
significant  (particularly  in  the  3-D  solutions),  though  the  fundamental  frequencies  of 
vibration  were  correct.  Numerical  round  off  errors  can  add  high  frequency  noise  and 
transfer  energy  to  the  lower  frequencies,  as  pointed  out  by  Bauchau  [11],  This  effect 
could  be  reduced  by  the  implementation  of  an  energy  dissipation  algorithm.  Inclusion 
of  an  energy  decay  statement  over  each  time  interval  will  incorporate  this  method  in 
the  current  algorithm,  however  at  this  time  energy  decay  algorithms  are  only  used 
with  displacement  formulations.  It  may  become  necessary  to  develop  a  finite  element 
model  which  uses  higher  order  shape  functions  in  order  to  accomplish  this.  During  the 
course  of  this  research  the  use  of  a  damping  term  was  investigated,  which  generated 
forces  that  oppose  the  strain  velocity  of  each  element  and  dissipate  energy.  However, 
this  was  not  fully  developed  and  no  results  were  presented. 

In  addition  to  the  suggested  improvements  for  the  current  algorithm,  extending 
the  principles  used  to  other  types  of  elements  (shells,  plates,  membranes,  etc.)  is 
necessary  to  investigate  the  full  application  of  HWP  in  elastodynamics.  This  will 
require  a  separate  development  using  the  unique  constitutive,  kinematic,  and  energy 
relationships  for  these  types  of  bodies.  An  architecture  for  a  software  code  using 
this  application  will  require  an  element  library  and  an  efficient  way  to  assemble  the 
state  vector  that  involves  the  more  complex  boundary  conditions  associated  with 
connections  between  different  element  types.  The  research  presented  serves  as  a  proof 
of  concept  using  a  beam  element,  and  is  a  first  step  in  this  direction. 
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Appendix  A.  Solutions  to  Steady-State  Problems 
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Figure  A.l:  Nondimensionalized  solution  for  a  fixed-free  rod  with  an  axial  tip  load 
and  torque. 
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Nondimensional  Force  Strain  Nondimensional  Force  Nondimensional  X  Deformation 
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Figure  A. 2:  Nondimensionalized  solution  for  a  fixed-free 

axial  load  and  torque. 
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Figure  A. 3:  Nondimensionalized  solution  for  a  fixed-free  tapered  rod  with  a  tip 

load  and  torque. 
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Figure  A. 4:  Nondimensionalized  solution  for  a  cantilevered  beam  with  a  transverse 
tip  load. 
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Figure  A. 5:  Nondimensionalized  solution  for  a  cantilevered  beam  with  a  distributed 
transverse  load. 
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Nondimensional  Moment  Nondimensional  X  Deformation 
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Figure  A. 6:  Nondimensionalized  solution  for  a  cantilevered  beam  with  a  distributed 

bending  moment. 
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Figure  A. 7:  Nondimensionalized  solution  for  a  cantilevered  beam  with  a  bending 

moment  applied  at  the  tip. 
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Results  for  a  cantilevered,  12  inch  aluminum  beam  rotating  at  3Hz  and 
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Figure  A. 10:  Results  for  a  cantilevered,  12  inch  elastic  beam  rotating  at  3Hz  and 

20Hz  about  its  vertical  axis. 


106 


Deformation-  72  in  beam  at  3  Hz 


Deformation-  72  in  beam  at  20  Hz 


x  10"3 


(a)  Deformation  at  3  Hz  (b)  Deformation  at  20  Hz 


Internal  Forces  (Positive  Tension)-  72  in  beam  at  3  Hz  x  1 04  Internal  Force  (Positive  Tension)-  72  in  beam  at  20  Hz 


(c)  Internal  Force  at  3  Hz 


(d)  Internal  Force  at  20  Hz 


Force  Strains- 72  in  beam  at  3  Hz  xIO”3  Force  Strain- 72  in  beam  at  20  Hz 


1 

°UO5»»0o'  '  ’  ’  '  ^ 
°on 

1 

UUOO°°oQ 

°o„ 

0.9 

0.9 

o 

o 

0.8 

o 

0.8 

o 

o 

o 

0.7 

o 

o 

0.7 

o 

o 

o 

i 

o 

0.6 

o 

c  0.6 

o 

o 

2 

o 

0.5 

o 

*2  0.5 

o 

o 

o 

0.4 

o 

£  0.4 

o 

o 

o 

0.3 

o 

0.3 

o 

0.2 

0.2 

o 

0 

0.1 

o 

0.1 

o  ■ 

o 

0 

0 

0 

10 

20 

30  40  50 

60 

70 

~0 

10 

20 

30  40  50 

60 

70 

X  Location  (inches) 

X  Location  (inches) 

(e)  Force  Strain  at  3  Hz 


(f)  Force  Strain  at  20  Hz 


Figure  A. 11:  Results  for  a  cantilevered,  72  inch  aluminum  beam  rotating  at  3Hz 

and  20Hz  about  its  vertical  axis. 
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Figure  A.  12:  Results  for  a  cantilevered,  72  inch  aluminum  beam  with  a  distributed 
transverse  load  under  stationary  and  rotating  conditions. 
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Appendix  B.  Solutions  to  Free  Vibration  Problems 
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Figure  B.l:  Nondimensionalized  axial  free  vibration  of  a  fixed-free  rod,  Ax/ At 
sjE/p,  10  elements,  At  =  0.006ms. 
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Nondimensional  Force  Nondimensional  Deflection 
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Figure  B.2:  Nondimensionalized  axial  free  vibration  of  a  fixed-free  rod,  Ax/ At  ~ 
2 y/E/p,  10  elements,  At  =  0.003ms 
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Nondimensional  Force  Nondimensional  Deflection 
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Figure  B.3:  Nondimensionalized  axial  free  vibration  of  a  fixed-free  rod,  Ax/ At  ~ 
0.5  \/~E]~p,  20  elements,  At  =  0.006ms 
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Nondimensional  Force  Nondimensional  Deflection 
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Figure  B.4:  Nondimensionalized  axial  free  vibration  of  a  fixed-free  rod,  Ax/ At  ~ 
12\fE/p,  1  element,  At  =  0.005ms 
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Figure  B.5:  Nondimensionalized  torsional  free  vibration  of  a  fixed-free  rod, 

Ax/ At  2a /E/p,  10  elements,  At  =  0.005ms 
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Figure  B.6:  Nondimensionalized  torsional  free  vibration  of  a  fixed-free  rod, 

Ax/ At  ~  y/G/p,  10  elements,  At  =  0.0099302ms 
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Figure  B.7:  Nondimensionalized  torsional  free  vibration  of  a  fixed-free  rod, 

Ax/ At  fa  20^/G/p,  1  element,  At  =  0.005 ms 
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Figure  B.8:  Nondimensionalized  torsional  free  vibration  of  a  fixed-free  rod, 

Ax/ At  ~  y/G/p,  1  element,  At  =  0.099302ms 
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Figure  B.9:  Nondimensionalized  torsional  free  vibration  of  a  fixed-free  rod, 

Ax/ At  ~  0.5^/G/p,  20  elements,  At  =  0.01ms 
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Figure  B.10:  Bending  vibration  of  a  cantilevered  beam,  10  elements,  At  =  1  ms 
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Figure  B.ll:  Bending  vibration  of  a  cantilevered  beam,  10  elements,  At  =  0.145 ms 
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Figure  B.12:  Bending  vibration  of  a  cantilevered  beam,  10  elements,  At  =  16 ms 
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Figure  B.13:  Bending  vibration  of  a  cantilevered  beam,  20  elements,  At  =  1  ms 
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Figure  B.14:  Bending  vibration  of  a  cantilevered  beam,  20  elements,  At  =  0.145 ms 
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Figure  B.15:  Bending  vibration  of  a  cantilevered  beam,  20  elements,  At  =  16 ms 


123 


Energy  (Mlb  in)  Energy  (Mlb  in)  Energy  (Mlb  in) 


Total  Energy 


Total  Energy 


1.4 

1.2 

1 

0.8 

0.6 

0.4 

0.2 

0 


x  10  4 


0  500  1000  1500  2000  2500  3000  3500  4000 


Time  (ms) 

(a)  Nx  =  10,  At  =  1  ms 


(b)  Nx  =  20,  At  =  1  ms 


(c)  Nx  =  10,  At  =  16 ms 


(d)  Nx  =  20,  At  =  16tos 


X10~4  Total  Energy 


X10~4  Total  Energy 


(e)  Nx  =  10,  At  =  0.145ms 


(f)  Nx  =  20,  A t  =  0.145ms 


Figure  B.16:  Conservation  of  Energy  for  Bending  Vibration 
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Appendix  C.  Solutions  for  Basic  Maneuvers 
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cantilevered  beam  about  the  z  axis,  10  ele- 
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Figure  C.2:  Flapping  maneuver,  10  elements,  At  =  0.2ms,  9max  =  ±7t/6  at  2Hz, 
E  =  10e6  psi 
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Figure  C.3:  Flapping  maneuver,  10  elements,  At  =  0.2ms,  9max  =  ±7t/6  at  2Hz, 
E  =  10e6  psi 
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Appendix  D.  Matlab  Code 


This  Appendix  contains  a  listing  of  the  Matlab®  hies  used  in  this  research.  The 
list  includes  all  of  the  hies  used  in  the  algorithm  and  samples  of  input  hies  and  post 
processors. 


D.l  Executable. m 

The  executable  hie  is  used  to  specify  the  inputs  for  the  problem  and  the  mesh 
size.  In  this  case  the  incremental  loading  routine  is  commented  out  because  it  is  not 
used.  For  highly  nonlinear  problems  with  non-zero  initial  conditions,  it  is  uncom¬ 
mented  and  the  steady  routine  is  commented  out  (only  one  of  the  two  is  required). 
For  static  and  steady-state  problems  the  dynamic  routine  is  also  turned  oh.  The  user 
also  specihes  the  number  of  elements,  step  size,  damping  factor  (if  used),  and  output 
hie  names. 


7.7. - 7.7. 

7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7 7  7  7  7 7  7  7  7  7  7  7 7  7  7  7  7  7  7  7 7  7  7  7  7  7  7 7  7  7  7  7  7  7 7  7  7  7  7  7 

/o  /o  /o  /o  /  0  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /  0  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /  0  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o 

%  SPACE  TIME  FINITE  ELEMENT  SOLVER  FOR  AN  ELASTIC  BEAM  USING  1 
1  HAMILTON'S  WEAK  PRINCIPLE  % 

1  1 

1  1st  Lt  Elliott  Leigh  1 

1  Air  Force  Institute  of  Technology  1 

1  Created  14  Nov  2005  1 

1  Last  Modified  19  Jan  2006  1 

7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7 7  7  7  7 7  7  7  7  7  7  7 7  7  7  7  7  7  7  7 7  7  7  7  7  7  7 7  7  7  7  7  7  7 7  7  7  7  7  7 

/o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /  0  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o 


7.7. 

7. 

7. 

7. 

7. 

7. 

7. 

7. 

7. 

7. 

7. 

7. 

7. 

7. 


The  following  m-files  are  required  to  run  this  program: 


Geomat .m 
Simparams.m 
FEStatic .m 
FEIncStatic .m 
FEDynamic.m 
Static .m 
IStatic .m 
Dynamic .m 
ImportStatic .m 


contains  geometric  and  material  properties 
contains  boundary  conditions,  applied  loads,  velocities 
finite  element  routine  for  steady  problems 
incremental  finite  element  routine  for  steady  problems 
finite  element  routine  for  time  accurate  problems 
equation  solver  called  by  FEStatic 
equation  solver  called  by  FEIncStatic 
equation  solver  called  by  FEDynamic 
postprocesses  steady  data 


ImportlStatic .m~  postprocesses  incremental  steady  data 
ImportDynamic .m~  postprocesses  time  accurate  data 
Milenkovic.m  ~  calculates  rotation  and  direction  cosine  matrices 
tilde. m  ~  cross  product  operator 
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clear ;clc; clear  all;  global  SIMS 


SIMS . num_x=l ; 

SIMS . num_t=10000 ; 

SIMS . num_q=10 ; 

Geomat 

SIMS . dx=GE0M . length/SIMS . num_x ; 
SIMS . dt=0 . 1 

SIMS . time=SIMS . num_t*SIMS . dt ; 
Simparams 
SIMS . edf =0 ; 

SIMS . edm=0 ; 

SIMS . sample=l ; 

SName=sprintf ( ; XStatic . dat ’ ) ; 
DName=sprintf ( ; dynamic . dat ’ ) ;  % 


Number  of  spatial  elements 
Number  of  time  steps 
Number  incremental  load  steps 
Geometric/material  properties 
Step  size  in  space  (inches) 

Step  size  in  time  (milliseconds) 

Run  time  of  simulation  (milliseconds) 
Simulation  parameters 
Damping  factor  (force) 

Damping  factor  (moment) 

Sampling  rate  for  output  data 
Output  name  for  static  state  vector 
Output  name  for  dynamic  state  vector 


0/0/ 0/0/ 0/0/ 0/0/ 0/0/ 0/0/ 0/0/ 0/0/ 0/0/ 0/0/ 0/0/0/  nnnDT  um  OT?rr  Tm  o/ o/ o/ o/ o/ o/ o/ o/ o/ o/ o/ o/ o/ o/ o/ o/ o/ o/ o/ o/ o/ o/ o/ o/ 

/././././././././././././././././o/o/././o/o/.  PROBLEM  SET  UP  /JJJJJJJJJJJJJJJJJJJJJJJ, 

7. 

7. 

7. 

% 

7. 

7. 

7. 

% 

7. 

7. 

7. 

7. 


y 7 7 7 7 7 7 7 7 7 7 7 7 7 7 "/ "/ "/ 77777777  AMflT  YQTCJ  7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 
/ 0  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  nij  I  U1U  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o  /o 


ts=cputime ; 
FEStatic 
7.  FEIncStatic 
%  FEDynamic 
tf =cputime ; 
runtime=tf-ts 


7.  Starts  clock  to  track  runtime 
%  Steady  analysis 
7»  Incremented  steady  analysis 
7o  Dynamic  analysis 
7»  Stops  clock 
7o  Records  runtime 


o/  o/  o/  o/  o/  o/  o/  o/  o/  o/  o/  o/  o/  o/  o/  o/  o/  o/  o/  o/  o/  o/  o/  o/  pnQT  PR  HPTTQQ  °/  °/  °/  °/  °/  °/  °/  °/  °/  °/  °/  °/  °/  °/  °/  °/  °/  °/  °/  °/  °/  °/  °/0/0/ 
/o/o/o/o/o/o/o/o/o/o/o/o/o/o/o/o/o/o/o/o/o/o/o/o  i  Uul  r  iUJL>EjDu  /o/o/o/o/o/o/o/o/o/o/o/o/o/o/o/o/o/o/o/o/o/o/o/o/o 

7.  ImportStatic  7.  requires  XStatic. dat, geometry, Simparams 

7o  ImportlStatic  %  requires  XIStatic.dat, geometry, Simparams 

7.  ImportDynamic  %  requires  XDynamic.dat  +one  of  the  above 

7.7. - 7.7. 


-D.U  Geomat.  m 

The  user  specifies  geometric  and  material  properties  by  generating  a  separate  file 
which  is  called  in  the  main  program.  There  are  separate  files  for  each  of  the  geometries 
presented  in  the  research.  The  following  sample  is  the  input  for  the  72-inch  aluminum 
beam  used  in  the  follower  force  problem  and  spin  up  maneuver.  This  approach  is  the 
least  efficient  for  isotropic  beams  because  it  involves  excessive  looping  and  Matlab® 
is  well  suited  for  vectorized  operations.  However,  it  is  intended  to  represent  all  of  the 
possible  parameters  that  may  be  required  in  more  complex  problems. 
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"/Geometric  and  Material  Properties 
global  GEOM; 
global  MATL; 

"/  Geometric  Properties 
GEOM . length=72 ; 
for  n=l :SIMS.num_x; 

GE0M.k_b( : ,n)=[0;0;0] ; 

GEOM. height (n)=l; 

GEOM . width (n) =6 ; 

GEOM . area (n) =GE0M . height (n) *GE0M . width (n) ; 
GEOM . r_cg_b ( : ,n)=[0;0;0] ; 

GEOM . el=  [1 ; 0 ; 0] ; 

GEOM. J(n) =3/2; 

GEOM . K_ 1 (n) =GE0M . area (n) ; 

GEOM . K_2 (n) =GE0M . area (n) ; 

GEOM. i_b( : , : ,n)  =  [6  0  0; 

0  1/2  0; 

0  0  18]  ; 

7.  Material  Properties 

MATL . mass (n) = . 098/386 . 4*GE0M . area (n) ; 

MATL . E(n) =10 ; 

MATL . Poisson (n) = . 35 ; 


/olength  of  beam  (inches) 

7oUndeformed  curvature 
"/height  of  cross  section 
7oWidth  of  cross  section 
70cross  section  area 
yocenter  of  mass  offset 
"/beam’s  axial  vector 
"/torsional  rigidity 
7oShear  area  y 
"/shear  area  z 
70moment  of  area  matrix 


70mass  per  unit  length  (sin) 
"/elastic  modulus  (Msi) 
"/Poisson’s  ratio 
"/shear  modulus  (Msi) 


MATL . G (n) =MATL . E (n) /2/ (1+MATL . Poisson (n) ) ; 

"/  Constitutive  properties  for  an  isotropic  beam 
MATL . A ( : , : , n) = [MATL . E (n) *GE0M . area (n)  0  0; 

0  MATL . G(n) *GE0M . K_1 (n)  0; 

0  0  MATL . G (n) *GE0M . K_2 (n) ] ; 

MATL . B( : , : ,n)=zeros (3,3) ; 

MATL . D ( : , : , n) = [MATL . G (n) *GE0M . J (n)  0  0; 

0  MATL . E(n) *GE0M . i_b (2 , 2 ,n)  0; 

0  0  MATL. E (n) *GE0M. i_b (3,3, n)] ; 

"/  Moment  of  inertia  per  unit  length  about  root 
"/  Moment  of  inertia  per  unit  length  about  root 
MATL . I_b( : , : , n) =MATL . mass (n) * . . . 

[1/12* (GEOM. height (n) “2+GEOM .width (n) ~2)  0  0; 

0  1/ 12* (GEOM. height (n) “2+ (GEOM. length/SIMS . num_x) "2)  0; 
0  0  l/12*(GE0M.width(n)  ~2+(GE0M.  length/SIMS . num_x)  "2)]  ; 


end 

11- 


-11 


D.3  Simparams.m 

The  boundary  conditions,  prescribed  motion,  and  applied  loads  are  unique  to 
each  problem  and  specified  in  a  separate  file  which  is  called  by  the  main  program. 
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The  following  is  a  sample  file  for  a  cantilevered  beam  subject  to  a  steady  rotation  of 
3  Hz.  It  was  used  in  problems  involving  steady  rotations. 


7.7. - 7.7. 

7.  Simulation  Parameters 

7.7.  All  forces  are  in  Mlbs,  all  moments  in  Mlb-in,  all  velocities  in  in/ms 
global  RIGD;  global  LOAD;  global  BC; 

7.  Initial  Conditions  (for  static  problems  and  initial  state  of  simulations) 

7.  initial  bc’s  ~  tip  force,  B  basis (Mlb) 


7. 


BC . F2_B0 ( : , SIMS . num_x)  =  [0 ; 0 ; 0] ; 

BC . M2_B0 ( : , SIMS . num_x)  =  [0 ; 0 ; 0] ; 

BC . q4_b0 (: , 1 ) = [0 ; 0 ; 0] ; 

BC . r4_b0 ( : , 1)=  [0; 0; 0] ; 

RIGD . w0=  [0 ; 0 ; 3*2*pi/1000] ; 

LOAD . G0=  [0 ; 0 ; 0]  ; 
for  n=l :SIMS.num_x 

r(: ,n)  =  [SIMS . dx* (n-1/2) ; 0 ; 0] 

RIGD . dr0( : ,n)=[0;0;0] ; 

RIGD . vO ( : ,n)=RIGD.dr0( : ,n)+tilde (RIGD . wO ( : ) ) *r ( : ,n) ; 
if  n==SIMS . num_x 


cantilevered 


7.  initial  bc’s 

7.  "  " 

7.  angular  velocity,  undeformed  (b  wrt  I) 
7.  gravity  (b  basis) 

7.  position  of  beam  segment  in  b 
7.  velocity  of  segment  in  b  frame  (in/ms) 

7.  in  I  frame 


else 


LOAD . f 0 ( : , n)  =  [0 ; 0 ; 0] 
L0AD.m0(: , n)= [0 ; 0 ; 0] 

LOAD . f 0 ( : , n)=[0;0;0] 
L0AD.m0( : ,n)=[0;0;0] 


7.  force  per  unit  length  (B  basis) 

7o  moment  per  unit  length  (B  basis) 

7o  force  per  unit  length  (B  basis) 

7o  moment  per  unit  length  (B  basis) 


end 


end 

7.  Time  Varying  Conditions  (for  dynamic  problems) 
for  t=l :SIMS.num_t; 

BC . q4_b( :  ,  1 , t)  =  [0 ;  0 ;  0]  ;  7.  Cantilevered 

BC . r4_b( :  ,  1  ,t)=  [0;  0 ; 0]  ;  7.  "  " 

7.  Rigid  Body  Motion  and  Boundary  Conditions 

BC . F2_B( :  , SIMS .num_x, t)  =  [0 ; 0 ; 0]  ;7.  Tip  loads,  B  basis  (follower) 
BC.M2_B(:  ,  SIMS  .  num_x ,  t)  =  [0 ;  0 ;  0]  ;  7,  "  " 

RIGD . w_b( : , t)  =  [0 ; 0 ; 0] ;  %  angular  velocity  (b  wrt  I) 

LOAD . G( : , t)  =  [0 ; 0 ; 0] ;  %  gravity  (b  basis) 


for  n=l : SIMS . num_x; 

rdot(:  ,n,t)=[0;0;0]  ;  7.  velocity  of  beam  segment  in  b 

RIGD .  v_b( :  , n,  t)=rdot  ( :  ,n,  t)+tilde  (RIGD .  w_b( :  ,t) )  *r  (  :  ,n)  ;  7»in  I 
7.  External  applied  loads 
LOAD . f _B ( : , n, t)  =  [0 ; 0 ; 0] ; 

LOAD . m_B (: , n , t )  =  [0 ; 0 ; 0] ; 

end 


end 

7.7.- 


-7.7. 


131 


D.4  FEStatic.m 


The  following  script  file  is  the  finite  element  routine  for  steady-state  problems. 
First,  the  initial  guess  is  specified  (usually  zero  for  all  state  variables).  This  guess 
is  supplied  to  the  Matlab®  function  fsolve.m,  which  is  used  to  solve  the  nonlinear 
system  of  equations.  Finally,  the  solution  is  stored  for  post-processing  and  set  as  the 
initial  conditions  for  the  simulation.  Note  that  in  this  procedure,  the  components 
of  the  state  vector  are  dependent  on  the  boundary  conditions.  In  this  case,  the 
root  displacements  and  tip  loads  do  not  appear  in  the  state  vector  because  they  are 
specified  in  the  problem.  For  a  different  scenario,  they  may  be  unknowns  and  would 
appear  in  the  state  vector.  Regardless,  the  size  of  the  state  vector  will  remain  the 
same.  However,  this  makes  it  more  difficult  to  switch  between  boundary  conditions. 
It  is  possible  but  requires  more  complexity  in  the  code  to  sort  the  state  vector  properly 
for  each  type  of  boundary  condition. 


7.7. - 7.7. 

7.  Solves  the  steady  boundary  value  problem 
global  IC 

7.  Assemble  state  vector 
for  n=l : SIMS .num_x; 

7.  Initial  guess  for  displacements  (default  zero) 
q0= [0 ; 0 ; 0] ; 
rho0=  [0 ; 0 ; 0] ; 

[HHO , CO] =Milenkovic (rhoO) ; 

R_CG_B=C0* (GEOM . r_cg_b( : ,n)) ; 

7.  Initial  guess  for  V,W,G,K  from  q,r  (kinematic) 

V0=C0* (RIGD . vO ( : ,n) +tilde (RIGD . wO) *q0) ; 

W0=C0* (RIGD . wO) ; 

G0=C0* (GEOM . el+t ilde (GEOM . k_b ( : ,n) ) *q0) -GEOM . el ; 

K0=C0*GE0M . k_b ( : ,n) ; 

7.  Initial  guess  for  P,H,F,M  from  V,W,G,K  (constitutive) 

P0=MATL .mass (n) *V0-MATL .mass (n) *tilde (R_CG_B) *W0 ; 

H0=MATL .mass (n) *tilde (R_CG_B) *V0+MATL . I_b( : , : ,n)*W0; 

F0=MATL.A(: , : ,n) *G0+MATL. B( : , : ,n)*K0; 

M0=MATL.B(: , : ,n) ’ *G0+MATL . D( : , : ,n)*K0; 
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7.  Assemble  (14n  variables  depend  on  BC’s) 
X0((42*n-41) : (42*n-39) ,l)=qO; 

X0((42*n-38) : (42*n-36) ,l)=rhoO; 
X0((42*n-35) : (42*n-33) ,l)=qO; 

XO ( (42*n-32) : (42*n-30) ,l)=rhoO; 


XO ( (42*n-29) : (42*n-27) ,1)=P0; 
XO ( (42*n-26) : (42*n-24) ,1)=H0; 
XO ( (42*n-23) : (42*n-21) ,l)=qO; 


XO ( (42*n-20) : (42*n-18) ,l)=rhoO; 


X0( (42*n-17) : (42*n-15) ,1)=F0; 
XO ( (42*n-14) : (42*n-12) ,1)=M0; 
X0((42*n-ll) : (42*n  -9),1)=V0; 
XO ( (42*n  -8) : (42*n  -6),1)=W0; 
XO ( (42*n  -5) : (42*n  -3),1)=G0; 
X0((42*n  -2) : (42*n) ,1)  =KO; 


end 


7o  Solve  14n  nonlinear  algebraic  equations 

Options=optimset ( ’Display ’ , ’of f ’ , ’Maxlter ’ ,40000 , ’TolFun’ , . . . 
le-10, ’ TolX ’ , le-10 , ’MaxFunEvals ’ , . . . 

40000, ’NonlEqnAlgorithm’ , ’gn’ , ’Jacobian’ , ’on’) ; 

[XStatic , FVALO , EXITFLAGO , OUTPUTO] =f solve (©Static , XO , Options) ; 

7,  Assign  steady  solution  as  initial  guess  for  simulation 
XO=XStatic ; 

7.  Print  to  file 

dlmwrite (SName , XStatic, ’ \t ’ ) ; 

7o  Assign  initial  conditions  for  time  accurate  simulation 
for  n=l :SIMS.num_x; 

IC.ql_b(: ,n,l)=XStatic((42*n-35) : (42*n-33) ,1) ; 

IC.rl_b( : ,n,l)=XStatic((42*n-32) : (42*n-30) ,1) ; 

IC.P1_B(: ,n,l)=XStatic((42*n-29) : (42*n-27) ,1) ; 

IC.H1_B(: ,n,l)=XStatic((42*n-26) : (42*n-24) ,1) ; 


end 


n 


D.5  Static. m 

The  steady-state  solver  uses  fsolve.m,  which  requires  a  user  specified  function 
for  calculating  the  residuals  of  the  nonlinear  equations.  This  function  contains  equa¬ 
tions  (3.92)  through  (3.105)  and  the  constraint  from  (3.106).  Variables  in  the  14 Nx 
equations  are  assigned  according  to  their  location  in  the  state  vector.  The  bulk  of  the 
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code  is  associated  with  calculating  the  Jacobian,  which  is  a  matrix  of  size  42 Nx  by 
42 Nx,  representing  the  partial  derivative  of  each  equation  with  respect  to  each  vari¬ 
able.  The  calculus  used  in  developing  the  Jacobian  takes  too  much  space  to  present 
in  this  document,  however  the  final  answers  are  presented  in  the  code.  While  an 
analytical  Jacobian  does  not  need  to  be  supplied,  it  allows  the  program  to  run  much 
more  efficiently  than  having  MATLAB®  calculate  it  with  finite  difference  methods. 


n - n 

function  [residual , Jacobian] =Static (XO) 

%  Minimizes  residuals  of  14n  equations  to  determine  initial  conditions 


global  GEOM 
global  MATL 
global  RIGD 
global  LOAD 
global  SIMS 
global  BC 


%  geometric  properties 
%  material  properties 
7.  rigid  body  motion 
7.  distributed  applied  loads 
7o  mesh  parameters 
7o  boundary  conditions 


7«Initialize  Analytical  Jacobian 
Jacobian=zeros (42*SIMS . num_x , 42*SIMS . num_x) ; 


7.  Calculate  residuals  and  Jacobian  using  XO  as  the  guess  for  the  unknowns 
for  n=l : SIMS .num_x; 


7o  Boundary  conditions  and  shared  edges  (problem  dependent) 
if  n  ==  1 , 

q4=BC .  q4_b0  ( :  ,  1) ;  7»Boundary  condition 

rho4=BC . r4_b0 ( : ,  1) ;  %  "  " 

else 


q4=X0((42*(n-l)-23) : (42*(n-l)-21) ,1) ; 
rho4=X0((42*(n-l)-20) : (42* (n-1) -18) , 1) ; 

end 

if  n  ==  SIMS.num_x, 

F2=BC . F2_B0 ( : , SIMS . num_x) ; 

M2=BC . M2_B0 ( : , SIMS . num_x) ; 


7oShared  edge 
7.q4=q2  for  prev  elem 


7oBoundary  condition 
7.  "  " 


else 


F2=X0  ( (42*  (n+1)  -17)  :  (42* (n+1) -15)  ,  1) ;  7, Shared  edge 

M2=X0  ( (42*  (n+1) -14)  :  (42* (n+1) -12)  ,  1) ;  7,F2=F1  for  next  elem 


end 


7o  Substitute  guess  for  unknowns  (14n  properties  dependent  on  problem) 
q  =X0((42*n-41) : (42*n-39) ,1) ; 
rho  =X0 ( (42*n-38) : (42*n-36) , 1) ; 
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q3  =X0 ( (42*n-35) : (42*n-33) , 1) ; 
rho3=X0 ( (42*n-32) : (42*n-30) , 1) ; 

P2  =X0 ( (42*n-29) : (42*n-27) , 1) ; 

H2  =X0 ( (42*n-26) : (42*n-24) , 1) ; 
q2  =X0((42*n-23) : (42*n-21) ,1) ; 
rho2=X0((42*n-20) : (42*n-18) ,1) ; 

FI  =X0((42*n-17) : (42*n-15) ,1) ; 

Ml  =X0((42*n-14) : (42*n-12) ,1) ; 

V  =X0 ( (42*n-ll) : (42*n  — 9 ) ,  1 ) ; 

W  =X0((42*n  -8) : (42*n  — 6 ) , 1 ) ; 

G  =X0 ( (42*n  -5) : (42*n  -3) , 1) ; 

K  =X0 ( (42*n  -2) : (42*n) ,1)  ; 

"/„  For  steady  problems,  displacements  and  momenta  are  constant  over  time 
ql  =q3;  %  Enforce  kinematics  as  functions  of  rigid  body  motion 

rhol=rho3 ; % 

PI  =P2;  %  Enforce  momenta  as  constant  functions  of  kinematics 

HI  =H2 ;  % 

"/Assign  intermediate  variables 
dx=SIMS . dx ; 

dt=l;  "/  Auto  for  steady  analysis 

mass=MATL .mass (n) ; 

P=l/2* (P1+P2) ; 

H=l/2* (H1+H2) ; 

F=l/2* (F1+F2) ; 

M=l/2* (M1+M2) ; 

[HH,C] =Milenkovic (rho) ; 

g=C*L0AD.G0;  %used  in  deformed  coordinate  system 

r_cg=C*GEOM.r_cg_b( : ,n) ;  %used  in  deformed  coordinate  system 

f=LOAD.fO(: ,n)+mass*g; 

m=L0AD ,m0( : ,n)+mass*tilde (r_cg) *g; 

v=RIGD . v0( : ,n) ; 

w=RIGD.wO; 

k=GE0M . k_b ( : ,n) ; 

I=MATL . I_b ( : , : ,n) ; 

A=MATL . A ( : , : ,n) ; 

B=MATL . B ( : , : ,n) ; 

D=MATL.D(: , : ,n) ; 
el=GE0M.el; 

"/.Evaluate  14  equations  using  guess 

delq=dx/4*(Pl-P2)-dx*dt/4*tilde(W)*P+dt/4*(F2-Fl)+. . . 
dx*dt/4*tilde (K) *F+dx*dt/4*f ; 

delp=dx/4*(Hl-H2)-dx*dt/4*tilde(W)*H-dx*dt/4*tilde(V)*P+. . . 

dx*dt/4*tilde  (el+G)  *F+dx*dt/4*tilde  (K)*M+dt/4*  (M2-Ml)+dx:*:dt/4*m; 
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delPl=dt/2*(v+tilde(w) *q-C’ *V)+(q-ql) ; 
delP2=dt/2* (v+tilde (w) *q-C ’ *V) + (q3-q) ; 
delHl=dt/2*inv (HH) * (C*w-W) + (rho-rhol) ; 
delH2=dt/2*inv (HH) * (C*w-W) + (rho3-rho) ; 
delFl=dx/2* (C ’ * (G+e 1 ) - (el+t ilde (k) *q) ) + (q4-q) ; 
delF2=dx/2* (C  ’  * (G+el ) - (el+t ilde (k) *q) ) + (q-q2) ; 
delMl=dx/2*inv(HH) * (K-C*k) + (rho4-rho) ; 
delM2=dx/2*inv(HH) * (K-C*k) + (rho-rho2) ; 
delV=P-mass*V+mass*tilde (r_cg) *W ; 
delW=H-I*W-mass*tilde (r_cg) *V ; 
delG=A*G+B* (K-k) -F ; 
delK=B ’ *G+D* (K-k) -M ; 

"/Assign  residuals 

residual ( (42*n-41) : (42*n-39) , l)=delq; 
residual ( (42*n-38) : (42*n-36) , l)=delp ; 
residual ( (42*n-35) : (42*n-33) , l)=delPl ; 
residual ( (42*n-32) : (42*n-30) , l)=delP2; 
residual ( (42*n-29) : (42*n-27) , l)=delHl ; 
residual ( (42*n-26) : (42*n-24) , l)=delH2 ; 
residual ( (42*n-23) : (42*n-21) , l)=delFl ; 
residual ( (42*n-20) : (42*n-18) , l)=delF2; 
residual ( (42*n-17) : (42*n-15) , l)=delMl ; 
residual ( (42*n-14) : (42*n-12) , l)=delM2; 
residual ( (42*n-ll) : (42*n-  9) , l)=delV; 
residual ( (42*n-  8) : (42*n-  6),l)=delW; 
residual ( (42*n-  5) : (42*n-  3),l)=delG; 
residual ( (42*n-  2):(42*n),l)  =delK; 


"/oDefine  individual 
rl=X0( (42*n-38) ,1) ; 
r2=X0((42*n-37) ,1) ; 
r3=X0((42*n-36) ,1) ; 
V1=X0( (42*n-ll) ,1) ; 
V2=X0 ( (42*n-10) ,1) ; 
V3=X0 ( (42*n-  9) ,1) ; 
Gl=X0((42*n-5) ,1)+1 
G2=X0( (42*n-4) , 1) ; 
G3=X0 ( (42*n-3) ,1) ; 
K1=X0 ( (42*n-2) ,1) ; 
K2=X0( (42*n-l) , 1) ; 
K3=X0((42*n) ,1) ; 
wl=w(l) ; 
w2=w(2) ; 
w3=w(3) ; 
kl=k(l) ; 


vector  elements  used 
"/rotation  parameter 
"/rotation  parameter 
"/rotation  parameter 
"/velocity  1 
"/velocity  2 
"/velocity  3 
;  "/strain  1  +  el 
"/strain  2 
"/strain  3 
"/curvature  1 
"/curvature  2 
"/curvature  3 
"/prescribed  angular 
"/prescribed  angular 
"/prescribed  angular 
"/initial  twist 


in  calculating  the  Jacobian 

1-  from  rho  bar 

2-  from  rho  bar 

3-  from  rho  bar 


velocity  1 
velocity  2 
velocity  3 
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k2=k(2) ; 
k3=k(3) ; 

W1=X0 (42*n  -8,1) 
W2=X0 (42*n  -7,1) 
W3=X0(42*n  -6,1) 


"/initial  curvature  2 
"/initial  curvature  3 
"/angular  velocity  1 
"/angular  velocity  2 
"/angular  velocity  3 


"/Define  Jacobian  Components  from  rotation  parameters: 


"/Partial  [C’V]  /  Partial  r 
JAden=(16+rl~2+r2~2+r3"2) ~3 ; 

JAll=32*(rl~3*(-r3*V2+r2*V3)-12*rl~2*(r2*V2+r3*V3)+4*(16+r2"2+r3~2)* 
(r2*V2+r3*V3)+rl*  (r2~2* (16*Vl-r3*V2)+r3* (16*r3*Vl+48*V2-r3~2* .  .  . 
V2)+r2~3*V3+r2*(-48+r3~2)*V3)) ; 

JA21=-16* (-8*r2~3*Vl-2*rl~3* (r3*Vl+8*V2) -2*rl* (-48*r3*Vl+r3~3*Vl- . . . 
128*V2+8*r3~2*V2)-96*rl~2*V3+rl~4*V3-r2"4*V3-(-256+r3~4)*V3+. . . 
8*r2*( (-16+3*rl~2-r3~2)*Vl+4*rl*r3*V3)-2*r2~2*(rl*r3*Vl-8*rl*. • • 
V2+r3~2*V3) ) ; 

JA31=16*(rl"4*V2-24*rl~2*(r3*Vl+4*V2)-(16+r2"2+r3~2)*(-8*r3*Vl+(-16+ 
r2~2) *V2+r3~2*V2) -2*rl~3* (r2*Vl-8*V3) -2*rl* (r2"3*Vl+r2* ( (-48+ . . . 
r3~2) *Vl+16*r3*V2) -8*r2~2*V3+8* (16+r3~2) *V3) ) ; 

JA12=-16* (2*r2"3* (-8*Vl+r3*V2) -r2~4*V3+24*r2"2* (rl*V2+4*V3) + (16+ . . . 
rl~2+r3~2) * (-8*rl*V2+rl~2*V3+(-16+r3~2) *V3)+2*r2* (8* (16+rl~2- . . . 
r3~2) *Vl+r3* ( (-48+rl~2+r3"2) *V2+16*rl*V3) ) ) ; 
JA22=-32*(rl~3*(-4*Vl+r2*V3)-rl~2*(r2*r3*Vl+16*r2*V2+4*r3*V3)-r3*. . . 
(r2~3*Vl+r2*((-48+r3~2)*Vl+16*r3*V2)-12*r2~2*V3+4*(16+r3"2)*. . . 
V3)+rl*(4*(-16+3*r2~2-r3"2)*Vl+r2*(-48+r2"2+r3"2)*V3)) ; 

JA32=16* ( (-256+rl~4+96*r2~2-r2"4-32*rl*r2*r3+2*rl~2*r3~2+r3"4) * . . . 
Vl+2*  (rl~3*r2*V2+rl*r2*  (-48+r2~2+r3~2)*V2+4*rl"2*  (r3*V2+2*r2* .  .  . 
V3) +4* ( (16-3*r2~2) *r3*V2+r3~2*V2+2*r2* (-16+r2~2) *V3-2*r2*r3~2* . . 
V3) ) ) ; 

JA13=16* (-r3~4*V2+24*r3~2* (4*V2-rl*V3) + ( 16+rl"2+r2"2) * ( (-16+ . . . 
rl~2+r2~2)  *V2+8*rl*V3)  +2*r3~3*  (8*Vl+r2*V3)  -2*r3* (8* ( 16+ .  .  . 
rl~2-r2~2) *Vl-r2* (-16*rl*V2+rl~2*V3+(-48+r2~2) *V3) ) ) ; 

JA23=-16* ( (-256+rl~4+2*rl~2*r2"2+r2"4+32*rl*r2*r3+96*r3~2-r3"4) * . . . 
Vl+2*(-4*r2*(16+rl~2+r2~2)*V3+12*r2*r3"2*V3+r3"3*(-8*V2+rl* . . . 
V3) +r3* (-8* (-16+rl~2-r2~2) *V2+rl* (-48+rl"2+r2~2) *V3) ) ) ; 

JA33=32* (rl~3* (4*Vl+r3*V2) +rl* (4* ( 16+r2~2-3*r3~2) *Vl+r3* (-48+ . . . 
r2~2+r3~2) *V2)+rl~2* (-r2*r3*Vl+4*r2*V2+16*r3*V3)+r2* (-r3"3* . . . 
Vl+4* ( 16+r2~2) *V2-12*r3~2*V2+r3* (48*Vl-r2"2*Vl+16*r2*V3) ) ) ; 
JA=l/JAden*[JAll  JA12  JA13; 

JA21  JA22  JA23 ; 

JA31  JA32  JA33] ; 


"/Partial  [ (H 5 ) ~  —  1  w]  /  Partial  r 
JBll=rl*wl+r2*w2+r3*w3 ; 
JB21=r2*wl-rl*w2+4*w3 ; 


137 


JB31=r3*wl-4*w2-rl*w3 ; 

JB12=-r2*wl+rl*w2-4*w3 ; 

JB22=rl*wl+r2*w2+r3*w3 ; 

JB32=4*wl+r3*w2-r2*w3 ; 

JB13=-r3*wl+4*w2+r l*w3 ; 

JB23=-4*wl-r3*w2+r2*w3 ; 

JB33=rl*wl+r2*w2+r3*w3 ; 

JB=l/8*  [JBll  JB12  JB13 ; 

JB21  JB22  JB23 ; 

JB31  JB32  JB33] ; 

"/.Partial  [(H)  ~  —  1  W]  /  Partial  r 
JCll=rl*Wl+r2*W2+r3*W3 ; 

JC21=-4*W3-rl*W2+r2*Wl ; 

JC31=4*W2-rl*W3+r3*Wl ; 

JC12=4*W3-rl*W2-r2*Wl ; 

JC22=rl*Wl+r2*W2+r3*W3 ; 

JC32=-4*Wl-r2*W3+r3*W2 ; 

JC13=-4*W2+rl*W3-r3*Wl ; 

JC23=4*Wl+r2*W3-r3*W2 ; 

JC33=rl*Wl+r2*W2+r3*W3 ; 

JC=l/8*  [JCll  JC12  JC13 ; 

JC21  JC22  JC23 ; 

JC31  JC32  JC33] ; 

"/Partial  [CJ  (G+el)]  /  Partial  r 
JDden=(16+rl~2+r2~2+r3~2) ~3 ; 

JD 11=32* (rl~3* (-r3*G2+r2*G3)-12*rl~2* (r2*G2+r3*G3)+4* (16+r2"2+ . . . 
r3~2)*(r2*G2+r3*G3)+rl*(r2"2*(16*Gl-r3*G2)+r3*(16*r3*Gl+48* . . 
G2-r3~2*G2)+r2~3*G3+r2* (-48+r3~2) *G3) ) ; 

JD21=-16* (-8*r2"3*Gl-2*rl~3* (r3*Gl+8*G2) -2*rl*  (~48*r3*Gl+r3"3* . . . 
Gl-128*G2+8*r3~2*G2)-96*rl"2*G3+rl-4*G3-r2~4*G3-(-256+r3~4)*. 
G3+8*r2* ( (-16+3*rl~2-r3~2) *Gl+4*rl*r3*G3) -2*r2~2* (rl*r3*Gl-8* 
rl*G2+r3~2*G3) ) ; 

JD31=16*(rl~4*G2-24*rl~2*(r3*Gl+4*G2)-(16+r2"2+r3~2)*(-8*r3*Gl+. . 
(-16+r2~2) *G2+r3~2*G2) -2*rl~3* (r2*Gl-8*G3) -2*rl* (r2~3*Gl+r2* . 
( (-48+r3~2) *Gl+16*r3*G2) -8*r2~2*G3+8* (16+r3~2) *G3) ) ; 

JD12=-16* (2*r2"3* (-8*Gl+r3*G2) -r2~4*G3+24*r2"2* (rl*G2+4*G3) + (16+ . 
rl~2+r3~2) * (~8*rl*G2+rl~2*G3+ (-16+r3~2) *G3) +2*r2* (8* (16+rl~2- 
r3~2) *Gl+r3* ( (-48+rl~2+r3"2) *G2+16*rl*G3) ) ) ; 
JD22=-32*(rl"3*(-4*Gl+r2*G3)-rl~2*(r2*r3*Gl+16*r2*G2+4*r3*G3)-r3* 
(r2~3*Gl+r2* ( (-48+r3~2) *Gl+16*r3*G2) -12*r2~2*G3+4* ( 16+r3"2) * . 
G3)+rl*(4*(-16+3*r2~2-r3"2)*Gl+r2*(-48+r2"2+r3"2)*G3)) ; 
JD32=16* ( (-256+rl~4+96*r2~2-r2"4-32*rl*r2*r3+2*rl~2*r3~2+r3"4) * . . 
Gl+2* (rl~3*r2*G2+rl*r2* (-48+r2~2+r3~2)*G2+4*rl"2* (r3*G2+2* . . . 
r2*G3)+4*( (16-3*r2~2)*r3*G2+r3~2*G2+2*r2*(-16+r2"2)*G3-2*r2* . 
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r3~2*G3) ) ) ; 

JD13=16* (-r3~4*G2+24*r3"2* (4*G2-rl*G3) + ( 16+rl"2+r2~2) * ( (-16+rl~2+ . . . 
r2~2) *G2+8*rl*G3) +2*r3~3* (8*Gl+r2*G3) -2*r3* (8* (16+rl~2-r2~2) * . . . 
Gl-r2* (-16*rl*G2+rl~ 2*G3+(-48+r2"2) *G3) ) ) ; 

JD23=-16* ( (-256+rl~4+2*rl~2*r2"2+r2"4+32*rl*r2*r3+96*r3~2-r3"4) * . . . 
Gl+2* (-4*r2* ( 16+rl~2+r2~2) *G3+12*r2*r3"2*G3+r3"3* (-8*G2+rl* . . . 
G3)+r3* (-8* (-16+rl~2-r2~2) *G2+rl* (-48+rl" 2+r2~2) *G3) ) ) ; 

JD33=32* (rl‘3* (4*Gl+r3*G2) +rl* (4* (16+r2~2-3*r3~2) *Gl+r3* (~48+r2~2+ . . . 
r3~2) *G2)+rl~2* (-r2*r3*Gl+4*r2*G2+16*r3*G3)+r2* (-r3~3*Gl+4* . . . 
(16+r2~2)*G2-12*r3~2*G2+r3*(48*Gl-r2~2*Gl+16*r2*G3))) ; 
JD=l/JDden*[JDll  JD12  JD13; 

JD21  JD22  JD23 ; 

JD31  JD32  JD33] ; 

"/oPartial  [(H,)~~l  k]  /  Partial  r 
JEll=rl*kl+r2*k2+r3*k3 ; 

JE21=r2*kl-rl*k2+4*k3 ; 

JE31=r3*kl-4*k2-rl*k3 ; 

JE12=-r2*kl+rl*k2-4*k3 ; 

JE22=rl*kl+r2*k2+r3*k3 ; 

JE32=4*kl+r3*k2-r2*k3 ; 

JE13=-r3*kl+4*k2+rl*k3 ; 

JE23=-4*kl-r3*k2+r2*k3 ; 

JE33=rl*kl+r2*k2+r3*k3 ; 

JE=l/8*  [JEll  JE12  JE13 ; 

JE21  JE22  JE23 ; 

JE31  JE32  JE33] ; 

"/oPartial  [(H)  ~  —  1  K]  /  Partial  r 
JFll=rl*Kl+r2*K2+r3*K3 ; 

JF21=-4*K3-rl*K2+r2*Kl ; 

JF31=4*K2-rl*K3+r3*Kl ; 

JF12=4*K3-rl*K2-r2*Kl ; 

JF22=rl*Kl+r2*K2+r3*K3 ; 

JF32=-4*Kl-r2*K3+r3*K2 ; 

JF13=-4*K2+rl*K3-r3*Kl ; 

JF23=4*Kl+r2*K3-r3*K2 ; 

JF33=rl*Kl+r2*K2+r3*K3 ; 

JF=l/8*  [JFll  JF12  JF13 ; 

JF21  JF22  JF23 ; 

JF31  JF32  JF33] ; 

%Fill  the  n  x  n  Jacobian  block  with  non  zero  elements  (diagonal  block) 
JacobianC (42*n-35) : (42*n-33) , (42*n-41) : (42*n-39))=. . . 

dt/2*tilde(w)+eye(3)  ;°/„delPl/q 
JacobianC (42*n-32) : (42*n-30) , (42*n-41) : (42*n-39))=. . . 
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dt/2*tilde(w)-eye(3)  ;0/„delP2/q 
JacobianC (42*n-23) : (42*n-21) , (42*n-41) : (42*n-39))=. . . 

-dx/2*tilde (k) -eye (3) ; '/delFl/q 
JacobianC (42*n-20) : (42*n-18) , (42*n-41) : (42*n-39))=. . . 

-dx/2*tilde  (k)  +eye  (3) ;  ”/0delF2/ q 
JacobianC (42*n-35) : (42*n-33) , (42*n-38) : (42*n-36))=. . . 
-dt/2*JA;°/„delPl/rho 

JacobianC (42*n-32) : (42*n-30) , (42*n-38) : (42*n-36))=. . . 

-dt/2*  JA ;  °/0delP2/rho 

JacobianC (42*n-29) : (42*n-27) , (42*n-38) : (42*n-36))=. . . 

dt/2*  ( JB-JC)  +eye  (3) ; °/„delHl/rho 
JacobianC (42*n-26) : (42*n-24) , (42*n-38) : (42*n-36))=. . . 
dt/2*  (JB-JC) -eye (3) ; °/0delH2/rho 

JacobianC  (42*n-23)  :  (42*n-21) ,  (42*n-38)  :  (42*n-36))=dx/2*JD;0/„delFl/rho 
JacobianC (42*n-20) : (42*n-18) , (42*n-38) : (42*n-36))=dx/2*JD;7„delF2/rho 
JacobianC (42*n-17) : (42*n-15) , (42*n-38) : (42*n-36))=. . . 

dx/2*  ( JF- JE)  -eye  (3) ; °/0delMl/rho 
JacobianC (42*n-14) : (42*n-12) , (42*n-38) : (42*n-36))=. . . 

dx/2*  ( JF- JE)  +eye  (3) ; 0/„delM2/rho 
JacobianC (42*n-35) : (42*n-33) , (42*n-35) : (42*n-33))=. . . 

-eye (3)  ;0/„delPl/q3-only  for  steady  problems 
JacobianC (42*n-32)  :  (42*n-30) ,  (42*n-35)  :  (42*n-33))=eye(3)  ;0/„delP2/q3 
JacobianC (42*n-29) : (42*n-27) , (42*n-32) : (42*n-30))=. . . 

-eye  (3)  ;0/„delHl/rho3-only  for  steady  problems 
JacobianC (42*n-26)  :  (42*n-24) ,  (42*n-32)  :  (42*n-30))=eye(3)  ;0/„delH2/rho3 
JacobianC (42*n-41) : (42*n-39) , (42*n-29) : (42*n-27))=. . . 

-dx*dt/4*tilde (W) ;%delq/P2-steady 
JacobianC (42*n-38) : (42*n-36) , (42*n-29) : (42*n-27))=. . . 

-dx*dt/4*tilde (V)  ;°/„delpsi/P2 

JacobianC (42*n-ll)  :  (42*n-9) ,  (42*n-29)  :  (42*n-27))=eye(3)  ;°/0delV/P2-steady 
JacobianC (42*n-38) : (42*n-36) , (42*n-26) : (42*n-24))=. . . 

-dx*dt/4*tilde  (W) ;  °/„delpsi/H2-steady 
JacobianC  (42*n-8)  :  (42*n-6) ,  (42*n-26)  :  (42*n-24))=eye(3)  ;0/„delW/H2-steady 
JacobianC (42*n-20) : (42*n-18) , (42*n-23) : (42*n-21))=. . . 

-eye  (3)  ;°/0delF2/q2 

JacobianC  (42*n-14)  :  (42*n-12) ,  (42*n-20)  :  (42*n-18))=-eye(3)  ;0/„delM2/rho2 
JacobianC (42*n-41) : (42*n-39) , (42*n-17) : (42*n-15))=. . . 

-dt/4*eye (3)+dx*dt/8*tilde (K) ;%delq/Fl 
JacobianC (42*n-38) : (42*n-36) , (42*n-17) : (42*n-15))=. . . 
dx*dt/8*tilde  (el+G)  ;°/„delpsi/Fl 

JacobianC (42*n-5) : (42*n-3) , (42*n-17) : (42*n-15))=-l/2*eye(3) ;%delG/Fl 
JacobianC (42*n-38) : (42*n-36) , (42*n-14) : (42*n-12))=. . . 

-dt/4*eye (3)+dx*dt/8*tilde (K) ;%delpsi/Ml 
JacobianC  (42*n-2)  :  (42*n) ,  (42*n-14)  :  (42*n-12))=-l/2*eye(3)  ;°/„delK/Ml 
JacobianC (42*n-38) : (42*n-36) , (42*n-ll) : (42*n-9))=. . . 
dx*dt/8*tilde  (P1+P2)  ;°/„delpsi/V 
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JacobianC  C42*n-35)  :  C42*n-33) ,  (42*n-ll)  :  (42*n-9) )=-dt/2*C’  ;0/„delPl/V 
JacobianC  C42*n-32) : (42*n-30) , (42*n-ll) : (42*n-9) )=-dt/2*C’ ;°/0delP2/V 
JacobianC C42*n-ll) : (42*n-9) , C42*n-ll) : C42*n-9) )=-mass*eye(3) ;%delV/V 
JacobianC C42*n-8) : C42*n-6) , C42*n-ll) : C42*n-9))=. . . 

-mass*tilde (r_cg) ;%delW/V 

JacobianC C42*n-41) : C42*n-39) , C42*n-8) : C42*n-6))=. . . 

dx*dt/8*tilde  (P1+P2)  ;°/„delq/W 
JacobianC C42*n-38) : C42*n-36) , C42*n-8) : C42*n-6))=. . . 
dx*dt/8*tilde (H1+H2) ;%delpsi/W 

JacobianC C42*n-29) : C42*n-27) , C42*n-8) : C42*n-6) )=-dt/2*invCHH) ;%delHl/W 
JacobianC C42*n-26) : C42*n-24) , C42*n-8) : C42*n-6) )=-dt/2*invCHH) ;%delH2/W 
JacobianC C42*n-ll) : C42*n-9) , C42*n-8) : C42*n-6))=. . . 
mass*tilde (r_cg) ;%delV/W 

JacobianC C42*n-8) : C42*n-6) , (42*n-8) : C42*n-6) )=-I ;%delW/W 
JacobianC C42*n-38) : C42*n-36) , C42*n-5) : C42*n-3))=. . . 

-dx*dt/8*tilde  (F1+F2) ;  °/0delpsi/G 

JacobianC C42*n-23)  :  C42*n-21) ,  C42*n-5)  :  C42*n-3) )=dx/2*C;  ;°/0delFl/G 
JacobianC C42*n-20)  :  C42*n-18) ,  C42*n-5)  :  C42*n-3) )=dx/2*C;  ;"/0delF2/G 
JacobianC C42*n-5)  :  C42*n-3) ,  C42*n-5) :  C42*n-3) )=A;°/„delG/G 
JacobianC C42*n-2) : C42*n) , (42*n-5) : C42*n-3))=B’ ;%delK/G 
JacobianC  C42*n-41) : C42*n-39) , C42*n-2) : C42*n))  =  . . . 

-dx*dt/8*tilde (F1+F2)  ;”/0delq/K 
JacobianC C42*n-38) : C42*n-36) , C42*n-2) : C42*n))=. . . 

-dx*dt/8*tilde (M1+M2) ; °/„delpsi/K 

JacobianC C42*n-17)  :  C42*n-15) ,  C42*n-2)  :  C42*n) )=dx/2*inv(HH)  ;°/0delMl/K 
JacobianC C42*n-14)  :  C42*n-12) ,  C42*n-2)  :  C42*n) )=dx/2*inv(HH)  ;°/0delM2/K 
JacobianC C42*n-5) : C42*n-3) , C42*n-2) : C42*n))=B;%delG/K 
JacobianC  C42*n-2)  :  C42*n) ,  (42*n-2)  :  (42*n))=D;°/„delK/K 

“/oContributions  to  off  diagonal  blocks 
if  n  >  1 

°/„The  n  x  (n-1)  block 

JacobianC (42*n-23) : C42*n-21) , (42*Cn-l)-23) : (42*(n-l)-21))=. . . 
eye  C3)  ;  °/0delFl  Cn) /q2Cn-l) ,  ie  q4 

JacobianC (42*n-17) : C42*n-15) , (42*Cn-l)-20) : C42*Cn-l)-18))=. . . 
eyeC3)  ;70delMlCn)/rho2Cn-l)  ,ie  rho4 

end 

if  n  <  SIMS.num_x 

70The  n  x  Cn+1)  block 

JacobianC (42*n-41) : (42*n-39) , (42*Cn+l)-17) : (42*(n+l)-15))=. . . 

dt/4*eyeC3)+dx*dt/8*tildeCK)  ;  7.delqCn) /F(n+1)  ,  ie  F2 
JacobianC (42*n-38) : C42*n-36) , (42*Cn+l)-17) : (42*(n+l)-15))=. . . 

dx*dt/8*tilde  Cel+G) ; %delpsi (n) /F (n+1) 

JacobianC (42*n-5) : (42*n-3) , C42* Cn+1) -17) : (42*(n+l)-15))=. . . 
-l/2*eye C3)  ;'/„delG(n)/F(n+l) 
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Jacobian ( (42*n-38) : (42*n-36) , (42*(n+l)-14) : (42*(n+l)-12))=. . . 

dt/4*eye(3)+dx*dt/8*tilde(K)  ; °/0delpsi (n) /M(n+1) ,  ie  M2 
Jacobian ((42*n-2) : (42*n) , (42* (n+l)-14) : (42*(n+l)-12))=. . . 
-l/2*eye(3) ;%delK(n)/M(n+l) 

end 


end 

n- 


n 


D.6  FEIncStatic.m 

The  following  file  is  used  for  solving  steady,  nonlinear  problems  with  an  incre¬ 
mental  loading  technique.  This  is  accomplished  by  updating  the  initial  guess  to  the 
solution  after  each  incremental  load  is  solved.  If  the  increments  are  small  enough, 
the  initial  guess  remains  close  to  the  incremental  solution.  When  required,  this  hie  is 
called  by  the  executable  in  place  of  FEStatic.m.  It  increments  all  prescribed  veloci¬ 
ties,  loads,  and  boundary  conditions  (tip  loads)  linearly  according  to  the  number  of 
increments  specified  and  the  final  value. 


11 - 11 

1  Solve  the  static  boundary  value  problem  incrementally 
global  IC 

1  Assemble  state  vector 
for  n=l :SIMS.num_x; 

1  Initial  guess  for  displacements 
q0= [0 ; 0 ; 0] ; 
r0= [0 ; 0 ; 0]  ; 

[HO, CO] =Milenkovic (rO) ; 

R_CG_B=C0* (GEOM . r_cg_b( : ,n)) ; 

1  Initial  guess  for  V,W,G,K  from  q,r  (kinematics) 

V0=C0* (RIGD . vO ( : ,n) +tilde (RIGD . wO) *q0) ; 

W0=C0* (RIGD . wO) ; 

G0=C0* (GEOM . el+t ilde (GEOM . k_b ( : ,n) ) *q0) -GEOM . el ; 

K0=C0*GE0M . k_b ( : ,n) ; 

1  Initial  guess  for  P,H,F,M  from  V,W,G,K  (constitutive  properties) 
P0=MATL . mass (n) *V0-MATL . mass (n) *t ilde (R_CG_B) *W0 ; 

H0=MATL .mass (n) *tilde (R_CG_B) *V0+MATL . I_b( : , : ,n)*W0; 

F0=MATL.A(: , : ,n) *G0+MATL . B ( : , : ,n)*K0; 
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MO=MATL . B ( : , : ,n) ’ *GO+MATL . D ( : , : ,n)*KO; 

7.  Assemble  (14n  variables  depend  on  BC’s) 


X0((42*n-41) : (42*n-39) ,l)=qO 
XO ( (42*n-38) : (42*n-36) ,l)=rO 
X0((42*n-35) : (42*n-33) ,l)=qO 
XO ( (42*n-32) : (42*n-30) ,l)=rO 
XO ( (42*n-29) : (42*n-27) ,1)=P0 
XO ( (42*n-26) : (42*n-24) ,1)=P0 
XO ( (42*n-23) : (42*n-21) ,l)=qO 
XO ( (42*n-20) : (42*n-18) ,l)=rO 
X0((42*n-17) : (42*n-15) ,1)=F0 
XO ( (42*n-14) : (42*n-12) ,1)=M0 
X0((42*n-ll) : (42*n  -9),1)=V0 
XO ( (42*n  -8) : (42*n  -6),1)=W0 
XO ( (42*n  -5) : (42*n  -3),1)=G0 
X0((42*n  -2) : (42*n) ,1)  =KO 


7.q 

%r 

7.q3 

y.r3 

7.P2 

7.H2 

0/„q2~  could  also  guess  BC's 
°/0r2~  "  " 

°/0F  1  ~  "  " 

%M1~  "  " 

y.v 

y.w 

o/.g 

%K 


end 

%  Solve  14n  nonlinear  algebraic  equations  incrementally 
for  t=l : SIMS .num_q 

Options=optimset( ’Display’ , ’off’ , ’Maxlter’ ,40000, ’TolFun’ , . . . 
le-10, ’ TolX ’ , le-10 , ’MaxFunEvals’ ,40000, . . . 
’NonlEqnAlgorithm’ , ’gn’ , ’ Jacobian’ , ’ on’ ) ; 

[XIStatic(: ,t) ,FVAL,EXITFLAG]=fsolve(@IStatic,XO, Options, t) ; 

•/.  Assign  solution  as  next  initial  guess 
XO=XIStatic ( : ,t) ; 

end 

%  Print  final  solution  to  file 
dlmwrite (SName , XlStatic \t ’) ; 

%  Assign  initial  conditions  for  time  accurate  simulation 
for  n=l : SIMS .num_x; 

IC.ql_b(: ,n,l)=XIStatic((42*n-35) : (42*n-33) , SIMS . num_q) ; 
IC.rl_b( : ,n,l)=XIStatic((42*n-32) : (42*n-30) , SIMS . num_q) ; 
IC.P1_B(: ,n,l)=XIStatic((42*n-29) : (42*n-27) ,SIMS.num_q) ; 
IC.H1_B(: ,n, l)=XIStatic ( (42*n-26) : (42*n-24) ,SIMS.num_q) ; 

end 
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D.7  IStatic.m 


Like  the  steady  solver,  the  incremental  loading  technique  uses  fsolve.m  to  eval¬ 
uate  the  system  of  nonlinear  equations.  The  following  Hie  is  used  to  calculate  the 
Jacobian  and  the  residuals  for  incremental  loading  problems. 


11 - 11 

function  [residual , Jacobian] =IStatic (XO , t) 

1  Minimizes  residuals  of  14n  equations  to  determine  initial  conditions 


global  GEOM 
global  MATL 
global  RIGD 
global  LOAD 
global  SIMS 
global  BC 


1  geometric  properties 
1  material  properties 
1  rigid  body  motion 
1  distributed  applied  loads 
1  mesh  parameters 
1  boundary  conditions 


"/.Initialize  Analytical  Jacobian 
Jacobian=zeros (42*SIMS . num_x , 42*SIMS . num_x) ; 


1  Calculate  residuals  and  Jacobian  using  XO  as  the  guess  for  the  unknowns 
for  n=l : SIMS .num_x; 


1  Boundary  conditions  and  shared  edges  (problem  dependent) 
if  n  ==  1 , 

q4=BC .  q4_b0  ( :  ,  1) ;  "/.Boundary  condition 

rho4=BC .  r4_b0  ( :  ,  1) ;  "/„  "  " 

else 


q4=X0((42*(n-l)-23) : (42*(n-l)-21) ,1) ; 
rho4=X0((42*(n-l)-20) : (42* (n-1) -18) , 1) ; 

end 

if  n  ==  SIMS.num_x, 

F2=BC.F2_B0( : , SIMS . num_x) *t/SIMS . num_q; 
M2=BC . M2_B0 ( : , SIMS . num_x) *t/SIMS . num_q; 

else 


"/.Shared  edge 
°/0q4=q2  for  prev  elem 


"/Boundary  condition 
1  "  " 


F2=X0  ( (42*  (n+1)  -17)  :  (42* (n+1) -15)  ,  1) ;  "/.Shared  edge 

M2=X0  ( (42*  (n+1)  -14)  :  (42* (n+1) -12)  ,  1) ;  °/.F2=Fl  for  next  elem 

end 


1  Substitute  guess  for  unknowns  (14n  properties  dependent  on  problem) 

q  =X0((42*n-41) : (42*n-39) ,1) ; 

rho  =X0 ( (42*n-38) : (42*n-36) , 1) ; 

q3  =X0((42*n-35) : (42*n-33) ,1) ; 

rho3=X0 ( (42*n-32) : (42*n-30) ,1) ; 

P2  =X0((42*n-29) : (42*n-27) ,1) ; 
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H2  =X0((42*n-26) : (42*n-24) ,1) ; 
q2  =X0((42*n-23) : (42*n-21) ,1) ; 
rho2=X0 ( (42*n-20) : (42*n-18) , 1) ; 

FI  =X0((42*n-17) : (42*n-15) ,1) ; 

Ml  =X0((42*n-14) : (42*n-12) ,1) ; 

V  =X0((42*n-ll) : (42*n  -9),1); 

W  =X0((42*n  -8) : (42*n  —6) , 1) ; 

G  =X0 ( (42*n  -5) : (42*n  -3) ,  1)  ; 

K  =X0((42*n  -2) : (42*n) , 1)  ; 

7.  For  steady  problems,  displacements  and  momenta  are  constant  over  time 
ql  =q3;  7,  Enforce  kinematics  as  functions  of  rigid  body  motion 

rhol=rho3 ;  7, 

PI  =P2;  7o  Enforce  momenta  as  constant  functions  of  kinematics 
HI  =H2 ;  % 

70Assign  intermediate  variables 
dx=SIMS . dx ; 

dt=l;  7o  Auto  for  steady  analysis 

mass=MATL .mass (n) ; 

P=l/2* (P1+P2) ; 

H=l/2* (H1+H2) ; 

F=l/2* (F1+F2) ; 

M=l/2* (M1+M2) ; 

[HH,C] =Milenkovic (rho) ; 

g=C*L0AD.G0;  70used  in  deformed  coordinate  system 

r_cg=C*GEOM.r_cg_b( :  ,n)  ;  70used  in  deformed  coordinate  system 

f =(L0AD . f 0( : ,n)+mass*g) *t/SIMS .num_q; 

m=(L0AD .m0( : ,n)+mass*tilde (r_cg) *g) *t/SIMS .num_q; 

v=RIGD.vO(: ,n) *t/SIMS .num_q; 

w=RIGD . wO*t/SIMS .num_q; 

k=GE0M . k_b ( : ,n) ; 

I=MATL . I_b ( : , : ,n) ; 

A=MATL . A( : , : ,n) ; 

B=MATL.B(: , : ,n) ; 

D=MATL.D(: , : ,n) ; 
el=GE0M.el; 

y.Evaluate  14  equations  using  guess 

delq=dx/4*(Pl-P2)-dx*dt/4*tilde(W)*P+dt/4*(F2-Fl)+. . . 

dx*dt/4*tilde (K) *F+dx*dt/4*f ; 
delp=dx/4*(Hl-H2)-dx*dt/4*tilde(W)*H-dx*dt/4*tilde(V)* . . . 

P+dx*dt/4*tilde (el+G) *F+dx*dt/4*tilde (K) *M+dt/4* (M2-Ml)+dx*dt/4*m; 
delPl=dt/2*(v+tilde(w) *q-C’ *V)+(q-ql) ; 
delP2=dt/2* (v+tilde (w) *q-C ’ *V) + (q3-q) ; 
delHl=dt/2*inv(HH) * (C*w-W)+(rho-rhol) ; 
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delH2=dt/2*inv (HH) * (C*w-W) + (rho3-rho) ; 
delFl=dx/2* (C  ’  * (G+el) -(el+tilde (k) *q) )+(q4-q) ; 
delF2=dx/2* (C  ’  * (G+el) -(el+tilde (k) *q) )+(q-q2) ; 
delMl=dx/2*inv(HH) * (K-C*k) + (rho4-rho) ; 
delM2=dx/2*inv(HH) * (K-C*k) + (rho-rho2) ; 
delV=P-mass*V+mass*tilde (r_cg) *W ; 
delW=H-I*W-mass*tilde (r_cg) *V ; 
delG=A*G+B* (K-k) -F ; 
delK=B ’ *G+D* (K-k) -M ; 


"/Assign  residuals 

residual ( (42*n-41) : (42*n-39) , l)=delq; 
residual ( (42*n-38) : (42*n-36) , l)=delp ; 
residual ( (42*n-35) : (42*n-33) , l)=delPl 
residual ( (42*n-32) : (42*n-30) , l)=delP2 
residual ( (42*n-29) : (42*n-27) , l)=delHl 
residual ( (42*n-26) : (42*n-24) , l)=delH2 
residual ( (42*n-23) : (42*n-21) , l)=delFl 
residual ( (42*n-20) : (42*n-18) , l)=delF2 
residual ( (42*n-17) : (42*n-15) , l)=delMl 
residual ( (42*n-14) : (42*n-12) , l)=delM2 
residual ( (42*n-ll) : (42*n-  9) , l)=delV; 
residual ( (42*n-  8) : (42*n-  6),l)=delW; 
residual ( (42*n-  5) : (42*n-  3),l)=delG; 
residual ( (42*n-  2):(42*n),l)  =delK; 


"/oDefine  individual 
rl=XO( (42*n-38) , 1) ; 
r2=X0((42*n-37) ,1) ; 
r3=X0 ( (42*n-36) ,1) ; 
Vl=X0((42*n-ll) ,1) ; 
V2=X0((42*n-10) ,1) ; 
V3=X0 ( (42*n-  9) ,1) ; 
Gl=X0((42*n-5) ,1)+1 
G2=X0((42*n-4) ,1) ; 
G3=X0((42*n-3) ,1) ; 
Kl=XO ( (42*n-2) ,1) ; 
K2=X0 ( (42*n-l) ,1) ; 
K3=X0 ( (42*n) ,1) ; 
wl=w(l) ; 
w2=w(2) ; 
w3=w(3) ; 
kl=k(l) ; 
k2=k(2) ; 
k3=k(3) ; 

Wl=XO (42*n  -8,1) ; 


vector  elements  used 
"/rotation  parameter 
"/rotation  parameter 
"/rotation  parameter 
"/velocity  1 
"/velocity  2 
"/velocity  3 
;  "/strain  1  +  el 
"/strain  2 
"/strain  3 
"/curvature  1 
"/curvature  2 
"/curvature  3 
"/prescribed  angular 
"/prescribed  angular 
"/prescribed  angular 
"/initial  twist 
"/initial  curvature  2 
"/initial  curvature  3 
"/angular  velocity  1 


in  calculating  the  Jacobian 

1-  from  rho  bar 

2-  from  rho  bar 

3-  from  rho  bar 


velocity  1 
velocity  2 
velocity  3 
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W2=X0(42*n  -7,1);  °/0angular  velocity  2 
W3=X0(42*n  -6,1);  "/angular  velocity  3 

"/.Define  Jacobian  Components  from  rotation  parameters: 

"/Partial  [C’V]  /  Partial  r 
JAden=(16+rl~2+r2~2+r3"2) ~3 ; 

JA 11=32* (rl~3* (~r3*V2+r2*V3) -12*rl~2* (r2*V2+r3*V3)+4* ( 16+r2"2+r3"2) . 
*(r2*V2+r3*V3)+rl*(r2~2*(16*Vl-r3*V2)+r3*(16*r3*Vl+48*V2-r3~2*. . 
V2)+r2~3*V3+r2*(-48+r3~2)*V3)) ; 

JA21=-16* (-8*r2~3*Vl-2*rl~3* (r3*Vl+8*V2) -2*rl*  (~48*r3*Vl+r3"3*Vl- . . . 
128*V2+8*r3~2*V2)-96*rl~2*V3+rl"4*V3-r2"4*V3-(-256+r3~4)*V3+8*r2 
* ( (-16+3*rl~2-r3~2) *Vl+4*rl*r3*V3) -2*r2"2* (rl*r3*Vl-8*rl*V2+. . . 
r3~2*V3) ) ; 

JA31=16* (rl~4*V2-24*rl~2* (r3*Vl+4*V2) - (16+r2"2+r3~2) * (-8*r3*Vl+ . . . 
(-16+r2~2)*V2+r3~2*V2)-2*rl~3*(r2*Vl-8*V3)-2*rl*(r2~3*Vl+r2*. . . 

( (-48+r3~2) *Vl+16*r3*V2) -8*r2~2*V3+8* (16+r3~2) *V3) ) ; 

JA12=-16* (2*r2"3* (-8*Vl+r3*V2) -r2~4*V3+24*r2"2* (rl*V2+4*V3) + (16+ . . . 
rl~2+r3~2)*(-8*rl*V2+rl~2*V3+(-16+r3~2)*V3)+2*r2*(8*(16+rl~2-. . . 
r3~2) *Vl+r3* ( (-48+rl~2+r3"2) *V2+16*rl*V3) ) ) ; 
JA22=-32*(rl"3*(-4*Vl+r2*V3)-rl~2*(r2*r3*Vl+16*r2*V2+4*r3*V3)-r3*. . . 
(r2~3*Vl+r2* ( (-48+r3~2) *Vl+16*r3*V2) -12*r2~2*V3+4* ( 16+r3"2) * . . . 
V3) +rl* (4* (-16+3*r2~2-r3"2) *Vl+r2* (-48+r2"2+r3~2) *V3) ) ; 

JA32=16* ( (-256+rl~4+96*r2~2-r2~4-32*rl*r2*r3+2*rl~2*r3~2+r3~4) *V1+ . . 
2* (rl~3*r2*V2+rl*r2* (-48+r2~2+r3"2) *V2+4*rl~2* (r3*V2+2*r2*V3) + . . 
4* ( ( 16-3*r2~2) *r3*V2+r3~2*V2+2*r2* (-16+r2"2) *V3-2*r2*r3"2*V3) ) ) ; 
JA13=16*(-r3~4*V2+24*r3"2*(4*V2-rl*V3)+(16+rl"2+r2"2)*((-16+rl~2+. . . 
r2~2) *V2+8*rl*V3) +2*r3~3* (8*Vl+r2*V3) -2*r3* (8* (16+rl~2-r2~2) * . . . 
Vl-r2* (-16*rl*V2+rl~2*V3+(-48+r2"2) *V3) ) ) ; 

JA23=-16* ( (-256+rl~4+2*rl~2*r2"2+r2"4+32*rl*r2*r3+96*r3~2-r3"4) * . . . 
Vl+2*(-4*r2*(16+rl~2+r2~2)*V3+12*r2*r3"2*V3+r3"3*(-8*V2+rl* . . . 
V3)+r3* (-8* (-16+rl~2-r2~2) *V2+rl* (-48+rl"2+r2~2) *V3) ) ) ; 

JA33=32* (rl~3* (4*Vl+r3*V2) +rl* (4* ( 16+r2~2-3*r3~2) *Vl+r3* (-48+ . . . 
r2~2+r3~2) *V2)+rl~2* (-r2*r3*Vl+4*r2*V2+16*r3*V3)+r2* (-r3"3* . . . 
Vl+4* ( 16+r2~2) *V2-12*r3~2*V2+r3* (48*Vl-r2"2*Vl+16*r2*V3) ) ) ; 

JA=1/ JAden*  [JA11  JA12  JA13; 

JA21  JA22  JA23 ; 

JA31  JA32  JA33] ; 

"/Partial  [ (H J ~  —  1  w]  /  Partial  r 
JBll=rl*wl+r2*w2+r3*w3 ; 

JB21=r2*wl-rl*w2+4*w3 ; 

JB31=r3*wl-4*w2-rl*w3 ; 

JB12=-r2*wl+rl*w2-4*w3 ; 

JB22=rl*wl+r2*w2+r3*w3 ; 

JB32=4*wl+r3*w2-r2*w3 ; 
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JB13=-r3*wl+4*w2+rl*w3 ; 

JB23=-4*wl-r3*w2+r2*w3 ; 

JB33=rl*wl+r2*w2+r3*w3 ; 

JB=l/8*  [JBll  JB12  JB13 ; 

JB21  JB22  JB23 ; 

JB31  JB32  JB33] ; 

"/Partial  [(H)  ~-l  W]  /  Partial  r 
JCll=rl*Wl+r2*W2+r3*W3 ; 

JC21=-4*W3-rl*W2+r2*Wl ; 

JC31=4*W2-rl*W3+r3*Wl ; 

JC12=4*W3-rl*W2-r2*Wl ; 

JC22=rl*Wl+r2*W2+r3*W3 ; 

JC32=-4*Wl-r2*W3+r3*W2 ; 

JC13=-4*W2+rl*W3-r3*Wl ; 

JC23=4*Wl+r2*W3-r3*W2 ; 

JC33=rl*Wl+r2*W2+r3*W3 ; 

JC=1/8*[JC11  JC12  JC13 ; 

JC21  JC22  JC23 ; 

JC31  JC32  JC33] ; 

"/.Partial  [CJ  (G+el)]  /  Partial  r 
JDden=(16+rl~2+r2~2+r3"2) ~3 ; 

JD 11=32* (rl~3* (-r3*G2+r2*G3)-12*rl~2* (r2*G2+r3*G3)+4* (16+r2"2+ . . . 
r3~2)*(r2*G2+r3*G3)+rl*(r2"2*(16*Gl-r3*G2)+r3*(16*r3*Gl+48* . . . 
G2-r3~2*G2)+r2~3*G3+r2* (-48+r3~2) *G3) ) ; 
JD21=-16*(-8*r2"3*Gl-2*rl~3*(r3*Gl+8*G2)-2*rl*(-48*r3*Gl+r3"3* . . . 
Gl-128*G2+8*r3~2*G2)-96*rl"2*G3+rl~4*G3-r2~4*G3-(-256+r3"4)*. . 
G3+8*r2* ( (-16+3*rl~2-r3~2) *Gl+4*rl*r3*G3) -2*r2~2* (rl*r3*Gl-8* . 
rl*G2+r3~2*G3) ) ; 

JD31=16* (rl"4*G2-24*rl~2* (r3*Gl+4*G2) - (16+r2"2+r3~2) * (-8*r3*Gl+ . . . 
(-16+r2~2) *G2+r3~2*G2) -2*rl~3* (r2*Gl-8*G3) -2*rl* (r2~3*Gl+r2* . . 
( (-48+r3~2) *Gl+16*r3*G2) -8*r2~2*G3+8* (16+r3~2) *G3) ) ; 
JD12=-16*(2*r2"3*(-8*Gl+r3*G2)-r2~4*G3+24*r2"2*(rl*G2+4*G3)+(16+. . 
rl~2+r3~2) * (~8*rl*G2+rl~2*G3+ (~16+r3~2) *G3) +2*r2* (8* (16+rl~2- . 
r3~2) *Gl+r3* ( (-48+rl~2+r3"2) *G2+16*rl*G3) ) ) ; 
JD22=-32*(rl"3*(-4*Gl+r2*G3)-rl~2*(r2*r3*Gl+16*r2*G2+4*r3*G3)-r3*. 
(r2~3*Gl+r2* ( (-48+r3~2) *Gl+16*r3*G2) -12*r2~2*G3+4* ( 16+r3"2) * . . 
G3)+rl*(4*(-16+3*r2~2-r3"2)*Gl+r2*(-48+r2"2+r3"2)*G3)) ; 
JD32=16* ( (-256+rl~4+96*r2~2-r2"4-32*rl*r2*r3+2*rl~2*r3~2+r3"4) * . . . 
Gl+2* (rl~3*r2*G2+rl*r2* (-48+r2~2+r3~2) *G2+4*rl"2* (r3*G2+2*r2* . 
G3)+4*((16-3*r2~2)*r3*G2+r3~2*G2+2*r2*(-16+r2~2)*G3-2*r2*r3~2* 
G3) ) ) ; 

JD13=16*(-r3~4*G2+24*r3~2*(4*G2-rl*G3)+(16+rl"2+r2"2)*((-16+. . . 
rl~2+r2~2)*G2+8*rl*G3)+2*r3~3*(8*Gl+r2*G3)-2*r3*(8*(16+. . . 
rl~2-r2~2)*Gl-r2*(-16*rl*G2+rl~2*G3+(-48+r2~2)*G3))) ; 
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JD23=-16* ( (-256+rl~4+2*rl~2*r2"2+r2"4+32*rl*r2*r3+96*r3~2-r3"4) * . . . 
Gl+2* (-4*r2* ( 16+rl~2+r2~2) *G3+12*r2*r3"2*G3+r3"3* (-8*G2+rl* . . . 

G3) +r3* (-8* (-16+rl~2-r2~2) *G2+rl* (-48+rl"2+r2~2) *G3) ) ) ; 

JD33=32* (rl~3* (4*Gl+r3*G2) +rl* (4* (16+r2~2-3*r3~2) *Gl+r3* (-48+ . . . 

r2~2+r3~2) *G2)+rl~2* (-r2*r3*Gl+4*r2*G2+16*r3*G3)+r2* (-r3"3*Gl+ . . . 
4*(16+r2~2)*G2-12*r3~2*G2+r3*(48*Gl-r2"2*Gl+16*r2*G3))) ; 

JD=1/ JDden*  [JD11  JD12  JD13; 

JD21  JD22  JD23 ; 

JD31  JD32  JD33] ; 

"/(Partial  [(H’)~-l  k]  /  Partial  r 
JEll=rl*kl+r2*k2+r3*k3 ; 

JE21=r2*kl-rl*k2+4*k3 ; 

JE31=r3*kl-4*k2-rl*k3 ; 

JE12=-r2*kl+rl*k2-4*k3 ; 

JE22=rl*kl+r2*k2+r3*k3 ; 

JE32=4*kl+r3*k2-r2*k3 ; 

JE13=-r3*kl+4*k2+rl*k3 ; 

JE23=-4*kl-r3*k2+r2*k3 ; 

JE33=rl*kl+r2*k2+r3*k3 ; 

JE=l/8*  [JEll  JE12  JE13 ; 

JE21  JE22  JE23 ; 

JE31  JE32  JE33] ; 

"/.Partial  [(H) '-l  K]  /  Partial  r 
JFll=rl*Kl+r2*K2+r3*K3 ; 

JF21=-4*K3-rl*K2+r2*Kl ; 

JF31=4*K2-rl*K3+r3*Kl ; 

JF12=4*K3-rl*K2-r2*Kl ; 

JF22=rl*Kl+r2*K2+r3*K3 ; 

JF32=-4*Kl-r2*K3+r3*K2 ; 

JF13=-4*K2+rl*K3-r3*Kl ; 

JF23=4*Kl+r2*K3-r3*K2 ; 

JF33=rl*Kl+r2*K2+r3*K3 ; 

JF=l/8*  [JF11  JF12  JF13 ; 

JF21  JF22  JF23 ; 

JF31  JF32  JF33] ; 

"/Fill  the  n  x  n  Jacobian  block  with  non  zero  elements  (diagonal  block) 
Jacobian( (42*n-35) : (42*n-33) , (42*n-41) : (42*n-39))=. . . 

dt/2*tilde(w)+eye(3)  ;°/„delPl/q 
Jacobian( (42*n-32) : (42*n-30) , (42*n-41) : (42*n-39))=. . . 

dt/2*tilde  (w)  -eye  (3)  ;°/delP2/q 
Jacobian( (42*n-23) : (42*n-21) , (42*n-41) : (42*n-39))=. . . 

-dx/2*tilde (k) -eye (3) ; '/delFl/q 
Jacobian( (42*n-20) : (42*n-18) , (42*n-41) : (42*n-39))=. . . 


149 


-dx/2*tilde  (k)  +eye  (3) ;  °/0delF2/ q 

JacobianC (42*n-35) : (42*n-33) , (42*n-38) : (42*n-36) )=-dt/2*JA; %delPl/rho 
JacobianC (42*n-32) : (42*n-30) , (42*n-38) : (42*n-36) )=-dt/2* JA; %delP2/rho 
JacobianC (42*n-29) : (42*n-27) , (42*n-38) : (42*n-36))=. . . 

dt/2*  ( JB-JC)  +eye  (3) ; °/0delHl/rho 
JacobianC (42*n-26) : (42*n-24) , (42*n-38) : (42*n-36))=. . . 
dt/2*  (JB-JC) -eye (3) ; 0/„delH2/rho 

JacobianC (42*n-23)  :  (42*n-21) ,  (42*n-38)  :  (42*n-36))=dx/2*JD;°/„delFl/rho 
JacobianC (42*n-20)  :  (42*n-18) ,  (42*n-38)  :  (42*n-36))=dx/2*JD;°/„delF2/rho 
JacobianC (42*n-17) : (42*n-15) , (42*n-38) : (42*n-36))=. . . 

dx/2*  ( JF- JE)  -eye  (3) ; °/„delMl/rho 
JacobianC (42*n-14) : (42*n-12) , (42*n-38) : (42*n-36))=. . . 

dx/2*  ( JF- JE)  +eye  (3) ; °/0delM2/rho 
JacobianC (42*n-35) : (42*n-33) , (42*n-35) : (42*n-33))=. . . 

-eye (3)  ;0/„delPl/q3-only  for  steady  problems 
JacobianC (42*n-32)  :  (42*n-30) ,  (42*n-35)  :  (42*n-33))=eye(3)  ;0/.delP2/q3 
JacobianC (42*n-29) : (42*n-27) , (42*n-32) : (42*n-30))=. . . 

-eye(3)  ;°/0delHl/rho3-only  for  steady  problems 
JacobianC (42*n-26)  :  (42*n-24) ,  (42*n-32)  :  (42*n-30))=eye(3)  ;0/.delH2/rho3 
JacobianC (42*n-41) : (42*n-39) , (42*n-29) : (42*n-27))=. . . 

-dx*dt/4*tilde (W) ;°/„delq/P2-steady 
JacobianC (42*n-38) : (42*n-36) , (42*n-29) : (42*n-27))=. . . 

-dx*dt/4*tilde (V)  ;°/„delpsi/P2 

JacobianC (42*n-ll)  :  (42*n-9) ,  (42*n-29)  :  (42*n-27))=eye(3) ; °/„delV/P2-steady 
JacobianC (42*n-38) : (42*n-36) , (42*n-26) : (42*n-24))=. . . 

-dx*dt/4*tilde (W) ;%delpsi/H2-steady 
JacobianC  (42*n-8)  :  (42*n-6) ,  (42*n-26)  :  (42*n-24))=eye(3)  ;°/0delW/H2-steady 
JacobianC  (42*n-20)  :  (42*n-18) ,  (42*n-23)  :  (42*n-21))=-eye(3)  ;0/„delF2/q2 
JacobianC (42*n-14)  :  (42*n-12) ,  (42*n-20)  :  (42*n-18))=-eye(3) ; 0/„delM2/rho2 
JacobianC (42*n-41) : (42*n-39) , (42*n-17) : (42*n-15))=. . . 

-dt/4*eye (3)+dx*dt/8*tilde (K) ;%delq/Fl 
JacobianC (42*n-38) : (42*n-36) , (42*n-17) : (42*n-15))=. . . 
dx*dt/8*tilde  (el+G)  ;°/„delpsi/Fl 

JacobianC (42*n-5)  :  (42*n-3) ,  (42*n-17)  :  (42*n-15))=-l/2*eye(3)  ;°/0delG/Fl 
JacobianC (42*n-38) : (42*n-36) , (42*n-14) : (42*n-12))=. . . 

-dt/4*eye (3)+dx*dt/8*tilde (K) ;%delpsi/Ml 
JacobianC (42*n-2)  :  (42*n) ,  (42*n-14)  :  (42*n-12))=-l/2*eye(3)  ;°/„delK/Ml 
JacobianC (42*n-38) : (42*n-36) , (42*n-ll) : (42*n-9))=. . . 
dx*dt/8*tilde (P1+P2) ;%delpsi/V 

JacobianC  (42*n-35)  :  (42*n-33) ,  (42*n-ll)  :  (42*n-9)  )=-dt/2*C’  ;°/,delPl/V 
JacobianC (42*n-32)  :  (42*n-30) ,  (42*n-ll)  :  (42*n-9) )=-dt/2*C’  ;0/„delP2/V 
JacobianC (42*n-ll) : (42*n-9) , (42*n-ll) : (42*n-9) )=-mass*eye(3) ;%delV/V 
JacobianC (42*n-8) : (42*n-6) , (42*n-ll) : (42*n-9))=-mass*tilde(r_cg) ;%delW/V 
JacobianC (42*n-41) : (42*n-39) , (42*n-8) : (42*n-6))=. . . 

dx*dt/8*tilde  (P1+P2)  ;°/„delq/W 
JacobianC (42*n-38) : (42*n-36) , (42*n-8) : (42*n-6))=. . . 
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dx*dt/8*tilde  (H1+H2)  ;°/„delpsi/W 

JacobianC (42*n-29) : (42*n-27) , (42*n-8) : (42*n-6) )=-dt/2*inv(HH) ;%delHl/W 
JacobianC (42*n-26) : (42*n-24) , (42*n-8) : (42*n-6) )=-dt/2*inv(HH) ;%delH2/W 
JacobianC (42*n-ll) : (42*n-9) , (42*n-8) : (42*n-6) )=mass*tilde(r_cg) ;7.delV/W 
JacobianC (42*n-8) : (42*n-6) , (42*n-8) : (42*n-6) )=-I ;%delW/W 
JacobianC (42*n-38) : (42*n-36) , (42*n-5) : (42*n-3))=. . . 

-dx*dt/8*tilde  (F1+F2) ;  °/„delpsi/G 

JacobianC (42*n-23)  :  (42*n-21) ,  (42*n-5)  :  (42*n-3) )=dx/2*C;  ;7.delFl/G 
JacobianC (42*n-20)  :  (42*n-18) ,  (42*n-5)  :  (42*n-3) )=dx/2*C;  ;7.delF2/G 
JacobianC (42*n-5)  :  (42*n-3) ,  (42*n-5) :  (42*n-3)  )=A;7.delG/G 
JacobianC (42*n-2) : (42*n) , (42*n-5) : (42*n-3))=B>  ;7.delK/G 
JacobianC (42*n-41) : (42*n-39) , (42*n-2) : (42*n))=. . . 

-dx*dt/8*tilde (F1+F2)  ;"/„delq/K 
JacobianC (42*n-38) : (42*n-36) , (42*n-2) : (42*n))=. . . 

-dx*dt/8*tilde  (M1+M2) ;  7.delpsi/K 

JacobianC (42*n-17) : (42*n-15) , C42*n-2) : (42*n) )=dx/2*inv(HH) ;7„delMl/K 
JacobianC C42*n-14)  :  (42*n-12) ,  (42*n-2)  :  C42*n) )=dx/2*inv(HH)  ;0/,delM2/K 
JacobianC C42*n-5) : (42*n-3) , (42*n-2) : (42*n))=B;7.delG/K 
JacobianC (42*n-2)  :  (42*n) ,  (42*n-2)  :  (42*n))=D;7,delK/K 

7oContributions  to  off  diagonal  blocks 
if  n  >  1 

7»The  n  x  Cn-1)  block 

JacobianC (42*n-23) : (42*n-21) , (42*Cn-l)-23) : (42*(n-l)-21))=. . . 
eye(3)  ;7odelFl(n)/q2(n-l)  ,ie  q4 

JacobianC (42*n-17) : C42*n-15) , (42*(n-l)-20) : (42*(n-l)-18))=. . . 
eyeC3)  ;7.delMl(n)/rho2(n-l) , ie  rho4 

end 

if  n  <  SIMS.num_x 

70The  n  x  Cn+1)  block 

JacobianC (42*n-41) : (42*n-39) , (42*(n+l)-17) : (42*(n+l)-15))=. . . 

dt/4*eye(3)+dx*dt/8*tilde(K)  ;7.delq(n)/F(n+l) ,  ie  F2 
JacobianC (42*n-38) : C42*n-36) , (42*(n+l)-17) : (42*(n+l)-15))=. . . 

dx*dt/8*tilde  Cel+G) ; 7.delpsi  (n) /F (n+1) 

JacobianC (42*n-5) : (42*n-3) , (42* (n+1) -17) : (42*(n+l)-15) )=. . . 
-l/2*eye(3)  ;7.delG(n)/F(n+l) 

JacobianC (42*n-38) : (42*n-36) , (42*(n+l)-14) : (42*(n+l)-12))=. . . 

dt/4*eye(3)+dx*dt/8*tilde(K)  ;7.delpsi(n)/M(n+l) ,  ie  M2 
JacobianC (42*n-2) : (42*n) , (42* (n+1) -14) : (42*(n+l)-12))=. . . 

-l/2*eye (3)  ;7,delG(n)/M(n+l) 

end 


end 

n- 


7.7. 
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D.8  FE  Dynamic,  m 


The  following  routine  is  used  to  solve  dynamic  problems.  After  the  complete 
initial  conditions  are  obtained  using  one  of  the  two  steady-state  algorithms,  they  are 
passed  to  this  hie.  It  solves  the  system  of  equations  for  each  time  step,  updating  the 
initial  conditions  after  each  iteration. 


7.7. - 7.7. 

7.  Obtain  Space-time  FE  Solution 

t_end=SIMS . dt ;  %  time  stamp  at  end  of  interval 

t_mid=SIMS .  dt/2 ;  7o  time  stamp  at  middle  of  interval 

sample=0;  7.  output  counter 

tag=0;  7.  output  index 


for  t=l : SIMS .num_t ; 

7o  Solve  individual  time  slab 

Options=optimset ( ’Display’ , ’ of f ’ , ’Maxi ter ’ ,40000 , ’TolFun’ , . . . 

SIMS . dx*SIMS . dt*le-10 , ’TolX’ ,SIMS.dx*SIMS.dt*le-10, . . . 

’MaxFunEvals ’ ,40000 , ’NonlEqnAlgorithm’ , ’gn’ , ’ Jacobian’ , ’ on’ ) ; 

[X , FVAL (t , :) ,EXITFLAG(t) , OUTPUT (t ) , JACOB] =f solve (©Dynamic , X0 , Options ,t) ; 

7.  Store  simulation  data  and  time  stamps  at  specified  sampling  intervals 
sample=sample+l ; 
if  sample  ==  SIMS. sample; 
tag=tag+l ; 

XDynamic ( 1 : 42*SIMS . num_x , tag) =X ; 

XDynamic (42*SIMS . num_x+l , tag) =t_mid ; 

XDynamic (42*SIMS . num_x+2 , tag) =t_end ; 
sample=0 ; 

marker=sprintf (’ Completed  iteration  7»d’,t); 
disp (marker) ; 

end 

7.  Use  numerical  derivatives  to  project  guess  for  next  time  step 
if  t==l;  7ohalf-step  first  derivative 

X0=3*X-2*XStatic ; 

Xsubl=X ; 

elseif  t==2;  7ofirst  derivative  and  half-step  second  derivative 
X0=3*X-4*Xsubl+2*XStatic ; 

Xsub2=Xsubl ; 

Xsubl=X ; 

else  7ofirst  and  second  derivatives 

X0=3*X-3*Xsubl+Xsub2 ; 

Xsub2=Xsubl ; 
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Xsubl=X ; 


end 

7.  Assign  initial  conditions  for  the  next  time  step 
if  t  <  SIMS.num_t, 

for  n=l : SIMS .num_x; 

IC.ql_b(: ,n,t+l)=X((42*n-35) : (42*n-33) ,1) ; 
IC . rl_b( : ,n,t+l)=X((42*n-32) : (42*n-30) ,1) ; 
IC . P1_B ( : ,n,t+l)=X( (42*n-29) : (42*n-27) ,1) ; 
IC . H1_B ( : ,n,t+l)=X((42*n-26) : (42*n-24) ,1) ; 

end 

7.  Update  clock 
t_end=t_end+SIMS . dt ; 
t_mid=t_mid+SIMS . dt ; 

end 

end 

7.  Print  to  file 
dlmwrite (DName , XDynamic 


D.9  Dynamic,  m 

This  function  is  used  by  fsolve.m  to  evaluate  the  residuals  and  Jacobian  for 
dynamic  problems.  There  are  some  differences  in  the  Jacobian  where  quantities  are 
no  longer  constant  with  respect  to  time.  Likewise,  the  constraints  from  equation 
(3.106)  are  removed  and  replaced  with  known  initial  conditions. 


71 - 

function  [residual , Jacobian] =Dynamic (XO , t) 

7.  Minimizes  residuals  of  14n  equations  inside  a  single  time  step 


global  GEOM 
global  MATL 
global  RIGD 
global  LOAD 
global  SIMS 
global  BC 
global  IC 


7.  geometric  properties 
7.  material  properties 
7.  rigid  body  motion 
7.  distributed  applied  loads 
7.  simulation  parameters 
7.  boundary  conditions 
%  initial  conditions 


"/^Initialize  Jacobian 

Jacobian=zeros (42*SIMS . num_x , 42*SIMS . num_x) ; 


7.7. 


7.  Calculate  residuals  and  Jacobian  using  XO  as  the  guess  for  the  unknowns 
for  n=l : SIMS .num_x; 
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"/.  Boundary  conditions  and  shared  edges  (problem  dependent) 
if  n  ==  1 , 

q4=BC.q4_b(:  ,  l,t) ;  "/.Boundary  condition 

rho4=BC . r4_b ( : , 1 , t ) ;  %  "  " 

else 

q4=X0((42*(n-l)-23)  :  (42*(n-l)-21)  ,1) ;  "/.Shared  edge 
rho4=X0  ( (42*  (n-1) -20)  :  (42*  (n-l)-18) ,  1) ;  "/.q4=q2  for  prev  elem 

end 


if  n  ==  SIMS.num_x, 

F2=BC.F2_B(:  , SIMS . num_x , t)  ;  "/.Boundary  condition 

M2=BC .  M2_B  ( :  ,  SIMS .  num_x  ,t)  ;  "/„  "  " 

else 

F2=X0((42*(n+l)-17)  :  (42* (n+1) -15)  ,1) ;  "/.Shared  edge 

M2=X0  ( (42*  (n+1) -14)  :  (42* (n+1) -12)  ,  1) ;  "/.F2=F1  for  next  elem 

end 


"/.Known  initial  conditions 
P1=IC . P1_B ( : ,n,t) ; 

H1=IC . H1_B ( : ,n,t) ; 
ql=IC . ql_b( : ,n, t) ; 
rhol=IC . rl_b( : ,n,t) ; 


"/.Initial  conditions 
"/.  ”  ” 

"/.  ”  ” 

"/.  ”  ” 


"/»  Substitute  guess  for  unknowns  (14n  properties  dependent  on  problem) 

q  =X0((42*n-41) : (42*n-39) ,1) ; 

rho  =X0 ( (42*n-38) : (42*n-36) , 1) ; 

q3  =X0((42*n-35) : (42*n-33) ,1) ; 

rho3=X0 ( (42*n-32) : (42*n-30) ,1) ; 

P2  =X0((42*n-29) : (42*n-27) ,1) ; 

H2  =X0((42*n-26) : (42*n-24) ,1) ; 
q2  =X0((42*n-23) : (42*n-21) ,1) ; 
rho2=X0 ( (42*n-20) : (42*n-18) ,1) ; 

FI  =X0 ( (42*n-17) : (42*n-15) , 1) ; 

Ml  =X0 ( (42*n-14) : (42*n-12) , 1) ; 

V  =X0 ( (42*n-ll) : (42*n  —9) , 1) ; 

W  =X0((42*n  -8) : (42*n  -6) ,1) ; 

G  =X0 ( (42*n  -5) : (42*n  -3) , 1) ; 

K  =X0 ( (42*n  -2) : (42*n) ,1)  ; 


"/.Assign  intermediate  variables 
dx=SIMS . dx ; 
dt=SIMS . dt ; 
mass=MATL .mass (n) ; 

P=l/2*  (P1+P2) ; 

H=l/2* (H1+H2) ; 
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F=l/2* (F1+F2) ; 

M=l/2* (M1+M2) ; 

[HH,C] =Milenkovic (rho) ; 

g=C*L0AD . G( : , t) ;  '/.used  in  deformed  coordinate  system 

r_cg=C*GEOM.r_cg_b( : ,n) ;  %used  in  deformed  coordinate  system 
v=RIGD . v_b( : ,n, t) ; 
w=RIGD . w_b( : ,t) ; 
k=GE0M . k_b ( : ,n) ; 

I=MATL . I_b ( : , : ,n) ; 

A=MATL . A ( : , : ,n) ; 

B=MATL . B ( : , : ,n) ; 

D=MATL.D(: , : ,n) ; 
el=GE0M. el ; 

f =L0AD . f _B( : ,n, t)+mass*g-SIMS . edf * (V-C* (v+tilde (w) *q) ) ; 
m=L0AD ,m_B( : ,n, t)+mass*tilde(r_cg) *g-SIMS . edm* (W-C*w) ; 

°/0  Evaluate  14  equations  using  guess 

delq=dx/4*(Pl-P2)-dx*dt/4*tilde(W)*P+dt/4*(F2-Fl)+dx*dt/4*. . . 
tilde (K) *F+dx*dt/4*f ; 

delp=dx/4*(Hl-H2)-dx*dt/4*tilde(W)*H-dx*dt/4*tilde(V)*P+. . . 

dx*dt/4*tilde (el+G) *F+dx*dt/4*tilde (K)*M+dt/4* (M2-Ml)+dx*dt/4*m; 
delPl=dt/2* (v+tilde (w) *q-CJ  *V)  +  (q-ql) ; 
delP2=dt/2* (v+tilde (w) *q-C ’ *V) + (q3-q) ; 
delHl=dt/2*inv(HH) * (C*w-W)+(rho-rhol) ; 
delH2=dt/2*inv (HH) * (C*w-W) + (rho3-rho) ; 
delFl=dx/2* (C  ’  * (G+e 1 ) - (el+t ilde (k) *q) ) + (q4-q) ; 
delF2=dx/2* (C  ’  * (G+e 1 ) - (el+t ilde (k) *q) ) + (q-q2) ; 
delMl=dx/2*inv(HH) * (K-C*k) + (rho4-rho) ; 
delM2=dx/2*inv(HH) * (K-C*k) + (rho-rho2) ; 
delV=P-mass*V+mass*tilde (r_cg) *W ; 
delW=H-I*W-mass*tilde (r_cg) *V ; 
delG=A*G+B* (K-k) -F ; 
delK=B ’ *G+D* (K-k) -M; 

"/.Assign  residuals 

residual ( (42*n-41) : (42*n-39) , l)=delq; 
residual ( (42*n-38) : (42*n-36) , l)=delp ; 
residual ( (42*n-35) : (42*n-33) , l)=delPl ; 
residual ( (42*n-32) : (42*n-30) , l)=delP2; 
residual ( (42*n-29) : (42*n-27) , l)=delHl ; 
residual ( (42*n-26) : (42*n-24) , l)=delH2 ; 
residual ( (42*n-23) : (42*n-21) , l)=delFl ; 
residual ( (42*n-20) : (42*n-18) ,l)=delF2; 
residual ( (42*n-17) : (42*n-15) , l)=delMl ; 
residual ( (42*n-14) : (42*n-12) ,l)=delM2; 
residual ( (42*n-ll) : (42*n-  9) , l)=delV; 
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residual ( (42*n-  8) : (42*n-  6),l)=delW; 
residual ( (42*n-  5) : (42*n-  3),l)=delG; 
residual ( (42*n-  2):(42*n),l)  =delK; 


"/.Define  individual 
rl=XO( (42*n-38) , 1) 
r2=X0( (42*n-37) ,1) 
r3=X0((42*n-36) ,1) 
Vl=X0((42*n-ll) ,1) 
V2=X0 ( (42*n-10) ,1) 
V3=X0 ( (42*n-  9) ,1) 
G1=X0 ( (42*n-5) ,1)  + 
G2=X0 ( (42*n-4) ,1) 
G3=X0 ( (42*n-3) ,1) 
K1=X0 ( (42*n-2) ,1) 
K2=X0 ( (42*n-l) ,1) 
K3=X0 ( (42*n) ,1) ; 
wl=w(l) 
w2=w(2) 
w3=w(3) 
kl=k(l) 
k2=k(2) 
k3=k(3) 

W1=X0 (42*n  -8,1) 
W2=X0 (42*n  -7,1) 
W3=X0 (42*n  -6,1) 
Vr=v+tilde (w) *q; 
Vrl=Vr (1) 

Vr2=Vr (2) 

Vr3=Vr (3) 


vector  elements  used  in  calculating  the  Jacobian 
"/rotation  parameter  1-  from  rho  bar 
"/rotation  parameter  2-  from  rho  bar 
"/rotation  parameter  3-  from  rho  bar 
"/velocity  1 
"/velocity  2 
"/velocity  3 

1; "/strain  1  (includes  el) 

"/strain  2 
"/strain  3 
"/curvature  1 
"/curvature  2 
"/curvature  3 

"/prescribed  angular  velocity  1 

"/prescribed  angular  velocity  2 

"/prescribed  angular  velocity  3 

"/initial  twist 

"/initial  curvature  2 

"/initial  curvature  3 

"/angular  velocity  1 

"/angular  velocity  2 

"/angular  velocity  3 

"/velocity  not  due  to  strain  rates 

"/  ”  "  1 

l  "  "  2 

7,  "  "  3 


"/Assemble  Jacobian  Components  for  rotation  matrices 

"/Partial  [C’V]  /  Partial  r 
JAden=(16+rl~2+r2~2+r3~2) ~3 ; 

JAll=32*(rl~3*(-r3*V2+r2*V3)-12*rl~2*(r2*V2+r3*V3)+4*(16+r2"2+r3~2) . 
*(r2*V2+r3*V3)+rl*(r2~2*(16*Vl-r3*V2)+r3*(16*r3*Vl+48*V2-r3~2*V2) 
+r2~3*V3+r2* (-48+r3~2) *V3) ) ; 

JA21=-16*(-8*r2"3*Vl-2*rl~3*(r3*Vl+8*V2)-2*rl*(-48*r3*Vl+r3"3*Vl-. . . 
128*V2+8*r3~2*V2)-96*rl~2*V3+rl"4*V3-r2"4*V3-(-256+r3~4)*V3+. . . 
8*r2*((-16+3*rl~2-r3~2)*Vl+4*rl*r3*V3)-2*r2~2*. . . 
(rl*r3*Vl-8*rl*V2+r3~2*V3) ) ; 

JA31=16* (rl"4*V2-24*rl"2* (r3*Vl+4*V2) - (16+r2"2+r3~2) * (-8*r3*Vl+ . . . 
(-16+r2~2)*V2+r3~2*V2)-2*rl~3*(r2*Vl-8*V3)-2*rl*(r2~3*Vl+r2*. . . 

( (-48+r3~2) *Vl+16*r3*V2) -8*r2~2*V3+8* (16+r3~2) *V3) ) ; 

JA12=-16* (2*r2"3* (-8*Vl+r3*V2) -r2~4*V3+24*r2"2* (rl*V2+4*V3) + . . . 
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(16+rl~2+r3~2)’K-8*rl*V2+rl~2*V3+(-16+r3"2)*V3)+2*r2*(8*. . . 
(16+rl~2-r3~2) *Vl+r3* ( (~48+rl~2+r3"2) *V2+16*rl*V3) ) ) ; 

JA22=-32* (rl~3* (~4*Vl+r2*V3) -rl~2* (r2*r3*Vl+16*r2*V2+4*r3*V3) - . . . 
r3* (r2~3*Vl+r2* ( (-48+r3~2) *Vl+16*r3*V2) -12*r2~2*V3+4* (16+r3~2) . 
*V3) +rl* (4* (~16+3*r2~2-r3"2) *Vl+r2* (-48+r2~2+r3"2) *V3) ) ; 
JA32=16* ( (-256+rl~4+96*r2~2-r2~4-32*rl*r2*r3+2*rl~2*r3~2+r3"4) *V1+ . 
2* ( rl~3*r2*V2+rl*r2 * (~48+r2~2+r3"2) *V2+4*rl~2* (r3*V2+2*r2*V3) + . 
4* ( ( 16-3*r2~2) *r3*V2+r3~3*V2+2*r2* (~16+r2"2) *V3-2*r2*r3"2*V3) ) ) 
JA13=16* (-r3~4*V2+24*r3~2* (4*V2-rl*V3) + ( 16+rl"2+r2"2) * ( (-16+rl~2+ . . 
r2~2) *V2+8*rl*V3) +2*r3~3* (8*Vl+r2*V3) -2*r3* (8* (16+rl~2-r2~2) *V1 
-r2* (-16*rl*V2+rl~2*V3+ (-48+r2~2) *V3 ) ) ) ; 

JA23=-16*  (  (~256+rl~4+2*rl~2*r2"2+r2"4+32*rl*r2*r3+96*r3~2-r3"4)  *  .  .  . 
Vl+2*(-4*r2*(16+rl~2+r2~2)*V3+12*r2*r3"2*V3+r3"3*(-8*V2+rl*V3)+ 
r3* (-8* (-16+rl~2-r2~2) *V2+rl* (~48+rl~2+r2"2) *V3) ) ) ; 

JA33=32* (rl~3* (4*Vl+r3*V2) +rl* (4* ( 16+r2~2-3*r3~2) *Vl+r3* (-48+r2~2+ . 
r3~2)*V2)+rl~2*(-r2*r3*Vl+4*r2*V2+16*r3*V3)+r2*(-r3~3*Vl+4*(16+ 
r2~2) *V2-12*r3~2*V2+r3* (48*Vl-r2~2*Vl+16*r2*V3) ) ) ; 
JA=l/JAden*[JAll  JA12  JA13; 

JA21  JA22  JA23 ; 

JA31  JA32  JA33] ; 

"/.Partial  [(H’)~-l  w]  /  Partial  r 
JBll=rl*wl+r2*w2+r3*w3 ; 

JB21=r2*wl-rl*w2+4*w3 ; 

JB31=r3*wl-4*w2-rl*w3 ; 

JB12=-r2*wl+rl*w2-4*w3 ; 

JB22=rl*wl+r2*w2+r3*w3 ; 

JB32=4*wl+r3*w2-r2*w3 ; 

JB13=-r3*wl+4*w2+rl*w3 ; 

JB23=-4*wl-r3*w2+r2*w3 ; 

JB33=rl*wl+r2*w2+r3*w3 ; 

JB=1/8*[JB11  JB12  JB13 ; 

JB21  JB22  JB23 ; 

JB31  JB32  JB33] ; 

"/Partial  [(H)  ~-l  W]  /  Partial  r 
JCll=rl*Wl+r2*W2+r3*W3 ; 

JC21=-4*W3-rl*W2+r2*Wl ; 

JC31=4*W2-rl*W3+r3*Wl ; 

JC12=4*W3-rl*W2-r2*Wl ; 

JC22=rl*Wl+r2*W2+r3*W3 ; 

JC32=-4*Wl-r2*W3+r3*W2 ; 

JC13=-4*W2+rl*W3-r3*Wl ; 

JC23=4*Wl+r2*W3-r3*W2 ; 

JC33=rl*Wl+r2*W2+r3*W3 ; 

JC=1/8*[JC11  JC12  JC13 ; 
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JC21  JC22  JC23 ; 
JC31  JC32  JC33] ; 


"/.Partial  [C*  (G+el)]  /  Partial  r 
JDden=(16+rl~2+r2"2+r3~2) ~3 ; 

JD 11=32* (rl~3* (-r3*G2+r2*G3) -12*rl~2* (r2*G2+r3*G3)+4* ( 16+r2"2+r3~2) . 
* (r2*G2+r3*G3) +rl* (r2~2* (16*Gl-r3*G2) +r3* (16*r3*Gl+48*G2-r3~2* . . 
G2)+r2~3*G3+r2*(-48+r3~2)*G3)) ; 

JD21=-16*(-8*r2"3*Gl-2*rl~3*(r3*Gl+8*G2)-2*rl*(-48*r3*Gl+r3"3*Gl-. . . 
128*G2+8*r3~2*G2)-96*rl~2*G3+rl~4*G3-r2"4*G3-(-256+r3~4)*G3+8*. . 
r2* ( (-16+3*rl~2-r3~2) *Gl+4*rl*r3*G3) -2*r2"2* (rl*r3*Gl-8*rl*G2+ . . 
r3~2*G3) ) ; 

JD31=16*(rl"4*G2-24*rl~2*(r3*Gl+4*G2)-(16+r2"2+r3~2)*(-8*r3*Gl+(-16+ 
r2~2) *G2+r3~2*G2)-2*rl"3* (r2*Gl-8*G3) -2*rl* (r2"3*Gl+r2* ( (-48+ . . . 
r3~2)*Gl+16*r3*G2)-8*r2~2*G3+8*(16+r3~2)*G3)) ; 

JD12=-16* (2*r2~3* (-8*Gl+r3*G2) -r2~4*G3+24*r2"2* (rl*G2+4*G3) + (16+ . . . 
rl~2+r3~2)*(-8*rl*G2+rl~2*G3+(-16+r3~2)*G3)+2*r2*(8*(16+rl~2-. . . 
r3~2) *Gl+r3* ( (-48+rl~2+r3"2) *G2+16*rl*G3) ) ) ; 
JD22=-32*(rl"3*(-4*Gl+r2*G3)-rl~2*(r2*r3*Gl+16*r2*G2+4*r3*G3)-. . . 
r3* (r2~3*Gl+r2* ( (-48+r3~2) *Gl+16*r3*G2) -12*r2~2*G3+4* (16+r3~2) . . 
*G3)+rl*(4*(-16+3*r2~2-r3"2)*Gl+r2*(-48+r2~2+r3"2)*G3)) ; 

JD32=16* ( (-256+rl~4+96*r2~2-r2"4-32*rl*r2*r3+2*rl~2*r3~2+r3"4) *G1 . . . 
+2* (rl~3*r2*G2+rl*r2* (-48+r2~2+r3"2) *G2+4*rl~2* (r3*G2+2*r2*G3) . . 
+4* ( ( 16-3*r2~2) *r3*G2+r3"3*G2+2*r2* (-16+r2~2) *G3-2*r2*r3"2*G3) ) ) 
JD13=16*(-r3~4*G2+24*r3~2*(4*G2-rl*G3)+(16+rl"2+r2"2)*((-16+rl~2+. . . 
r2~2) *G2+8*rl*G3) +2*r3~3* (8*Gl+r2*G3) -2*r3* (8* (16+rl~2-r2~2) *G1 . 
-r2* (-16*rl*G2+rl~2*G3+(-48+r2~2) *G3) ) ) ; 
JD23=-16*((-256+rl~4+2*rl~2*r2"2+r2"4+32*rl*r2*r3+96*r3~2-r3"4)*Gl . . 
+2* (-4*r2* ( 16+rl~2+r2~2) *G3+12*r2*r3~2*G3+r3~3* (-8*G2+rl*G3)+ . . . 
r3* (-8* (~16+rl~2-r2~2) *G2+rl* (-48+rl~2+r2"2) *G3) ) ) ; 

JD33=32* (rl~3* (4*Gl+r3*G2) +rl* (4* (16+r2~2-3*r3~2) *Gl+r3* (-48+ . . . 
r2~2+r3~2) *G2)+rl~2* (-r2*r3*Gl+4*r2*G2+16*r3*G3)+r2* (-r3"3* . . . 
Gl+4* ( 16+r2~2) *G2-12*r3~2*G2+r3* (48*Gl-r2"2*Gl+16*r2*G3) ) ) ; 

JD=1/ JDden*  [JD11  JD12  JD13; 

JD21  JD22  JD23 ; 

JD31  JD32  JD33] ; 

"/Partial  [(H,)~~l  k]  /  Partial  r 
JEll=rl*kl+r2*k2+r3*k3 ; 

JE21=r2*kl-rl*k2+4*k3 ; 

JE31=r3*kl-4*k2-rl*k3 ; 

JE12=-r2*kl+rl*k2-4*k3 ; 

JE22=rl*kl+r2*k2+r3*k3 ; 

JE32=4*kl+r3*k2-r2*k3 ; 

JE13=-r3*kl+4*k2+rl*k3 ; 

JE23=-4*kl-r3*k2+r2*k3 ; 
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JE33=rl*kl+r2*k2+r3*k3 ; 

JE=l/8* [JEll  JE12  JE13 ; 

JE21  JE22  JE23 ; 

JE31  JE32  JE33] ; 

"/Partial  [(H)  ~  —  1  K]  /  Partial  r 
JFll=rl*Kl+r2*K2+r3*K3 ; 

JF21=-4*K3-rl*K2+r2*Kl ; 

JF31=4*K2-rl*K3+r3*Kl ; 

JF12=4*K3-rl*K2-r2*Kl ; 

JF22=rl*Kl+r2*K2+r3*K3 ; 

JF32=-4*Kl-r2*K3+r3*K2 ; 

JF13=-4*K2+rl*K3-r3*Kl ; 

JF23=4*Kl+r2*K3-r3*K2 ; 

JF33=rl*Kl+r2*K2+r3*K3 ; 

JF=1/8*[JF11  JF12  JF13 ; 

JF21  JF22  JF23 ; 

JF31  JF32  JF33] ; 

"/Partial  [C  Vr]  /  Partial  r  -  damping  terms 
JGden=(16+rl~2+r2~2+r3~2) ~3 ; 

JGll=-32*(rl"3*(-r3*Vr2+r2*Vr3)+12*rl"2*(r2*Vr2+r3*Vr3)-4*(16+. . . 
r2~2+r3~2)  *  (r2*Vr2+r3*Vr3)+rl*  (-r2"2*  (16*Vrl+r3*Vr2)  -r3*  .  .  . 
(16*r3*Vrl-48*Vr2+r3~2*Vr2)+r2~3*Vr3+r2*(-48+r3~2)*Vr3)) ; 
JG21=16* (8*r2"3*Vrl-2*rl~3* (r3*Vrl-8*Vr2) -2*rl* (-48*r3*Vrl+r3~3* . . . 
Vrl+128*Vr2-8*r3~2*Vr2)-96*rl~2*Vr3+rl~4*Vr3-r2"4*Vr3-(-256+. . . 
r3~4) *Vr3-8*r2* ( (-16+3*rl"2-r3~2) *Vrl+4*rl*r3*Vr3) -2*r2"2* (rl* . 
r3*Vrl+8*rl*Vr2+r3~2*Vr3) ) ; 

JG31=-16*(rl~4*Vr2+24*rl~2*(r3*Vrl-4*Vr2)-(16+r2~2+r3~2)*(8*r3*. . . 
Vrl+(-16+r2~2) *Vr2+r3~2*Vr2) -2*rl"3* (r2*Vrl+8*Vr3) -2*rl* (r2~3* . 
Vrl+r2* ( (-48+r3~2) *Vrl-16*r3*Vr2) +8*r2"2*Vr3-8* (16+r3"2) *Vr3) ) ; 
JG12=16* (2*r2"3* (8*Vrl+r3*Vr2) -r2~4*Vr3-24*r2"2* (rl*Vr2-4*Vr3) + . . . 
(16+rl~2+r3~2)  *  (8*rl*Vr2+rl~2*Vr3+(-16+r3"2)  *Vr3)-2*r2*  (8*  (16+ . 
rl~2-r3~2) *Vrl-r3* ( (-48+rl"2+r3"2) *Vr2-16*rl*Vr3) ) ) ; 

JG22=32* (rl"3* (4*Vrl+r2*Vr3)+rl~2* (-r2*r3*Vrl+16*r2*Vr2+4*r3*Vr3)+ . 
r3*  (-r2~3*Vrl+r2*  ( (48-r3"2)  *Vrl+16*r3*Vr2)-12*r2"2*Vr3+4* (16+ .  . 
r3~2) *Vr3)+rl* (4* ( 16-3*r2"2+r3~2) *Vrl+r2* (-48+r2~2+r3"2) *Vr3) ) ; 
JG32=-16* ( (-256+rl~4+96*r2~2-r2~4+32*rl*r2*r3+2*rl"2*r3~2+r3"4) * . . . 
Vrl+2* (rl~3*r2*Vr2+rl*r2* (-48+r2"2+r3~2) *Vr2-4*rl~2* (r3*Vr2+2* . 
r2*Vr3)  -4*  ( (16-3*r2~2)  *r3*Vr2+r3"3*Vr2+2*r2*  (-16+r2~2)  *Vr3-2* .  . 
r2*r3~2*Vr3) ) ) ; 

JG13=-16*(-r3~4*Vr2+24*r3~2*(4*Vr2+rl*Vr3)+(16+rl~2+r2~2)*((-16+. . . 
rl~2+r2~2) *Vr2-8*rl*Vr3)+2*r3~3* (-8*Vrl+r2*Vr3) +2*r3* (8+ (16+ . . . 
rl~2-r2~2) *Vrl+r2* ( 16*rl*Vr2+rl"2*Vr3+(-48+r2~2) *Vr3) ) ) ; 
JG23=16* ( (-256+rl"4+2*rl~2*r2"2+r2~4-32*rl*r2*r3+96*r3~2-r3"4) * . . . 
Vrl+2* (4*r2* (16+rl~2+r2~2) *Vr3-12*r2*r3"2*Vr3+r3"3* (8*Vr2+rl* . . 
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Vr3)+r3* (8* (-16+rl~2-r2~2) *Vr2+rl* (-48+rl"2+r2~2) *Vr3) ) ) ; 
JG33=-32* (rl"3* (-4*Vrl+r3*Vr2) +rl* (-4* (16+r2"2-3*r3~2) *Vrl+r3* . . . 
(-48+r2~2+r3~2)*Vr2)+rl~2*(r2*r3*Vrl+4*r2*Vr2+16*r3*Vr3)-r2* . . . 
(r3~3*Vrl+4*(16+r2~2)*Vr2-12*r3"2*Vr2+r3*(-48*Vrl+r2~2*Vrl. . . 
+16*r2*Vr3) ) ) ; 

JG=1/ JGden* [JG11  JG12  JG13; 

JG21  JG22  JG23 ; 

JG31  JG32  JG33] ; 

“/.Partial  [C  w]  /  Partial  r  -  damping  terms 
JHden=(16+rl~2+r2~2+r3"2) ~3 ; 

JHll=-32* (rl"3* (-r3*w2+r2*w3)+12*rl"2* (r2*w2+r3*w3) -4* (16+r2"2+ . . . 
r3~2) * (r2*w2+r3*w3) +rl* (-r2~2* (16*wl+r3*w2) -r3* (16*r3*wl-48*w2 . . 
+r3~2*w2) +r2~3*w3+r2* (-48+r3~2) *w3) ) ; 

JH21=16*  (8*r2"3*wl-2*rl~3*  (r3*wl-8*w2)  -2*rl*  (-48*r3*wl+r3"3*wl+ .  .  . 
128*w2-8*r3~2*w2)-96*rl~2*w3+rl"4*w3-r2"4*w3- (~256+r3"4) *w3-8* . . 
r2*  ( (-16+3*rl~2-r3~2)  *wl+4*rl*r3*w3)  -2*r2"2*  (rl*r3*wl+8*rl*w2+ .  . 
r3~2*w3) ) ; 

JH31=-16* (rl~4*w2+24*rl~2* (r3*wl-4*w2) - ( 16+r2"2+r3"2) * (8*r3*wl+ (-16+ 
r2~2)  *w2+r3~2*w2) -2*rl~3*  (r2*wl+8*w3) -2*rl*  (r2"3*wl+r2*  ( (-48+ .  .  . 
r3~2) *wl-16*r3*w2)+8*r2~2*w3-8* (16+r3~2) *w3) ) ; 

JH12=16* (2*r2"3* (8*wl+r3*w2) -r2~4*w3-24*r2"2* (rl*w2-4*w3)+(16+rl"2+ . 
r3~2) * (8*rl*w2+rl~2*w3+(-16+r3~2) *w3)-2*r2* (8* (16+rl~2-r3~2) * . . . 
wl-r3* ( (-48+rl~2+r3~2) *w2-16*rl*w3) ) ) ; 

JH22=32* (rl~3* (4*wl+r2*w3)+rl"2* (-r2*r3*wl+16*r2*w2+4*r3*w3) +r3* . . . 
(-r2~3*wl+r2* ( (48-r3~2) *wl+16*r3*w2) -12*r2~2*w3+4* (16+r3"2) * . . . 
w3) +rl* (4* ( 16-3*r2~2+r3~2) *wl+r2* (-48+r2"2+r3~2) *w3) ) ; 

JH32=-16* ( (-256+rl~4+96*r2~2-r2~4+32*rl*r2*r3+2*rl"2*r3~2+r3"4) *wl+ . 
2* (rl~3*r2*w2+rl*r2* (-48+r2~2+r3"2) *w2-4*rl~2* (r3*w2+2*r2*w3) - . . 
4* ( (16-3*r2~2) *r3*w2+r3~3*w2+2*r2* (-16+r2"2) *w3-2*r2*r3"2*w3) ) ) ; 
JH13=-16* (-r3~4*w2+24*r3~2* (4*w2+rl*w3) + ( 16+rl~2+r2"2) * ( (-16+rl~2+ . . 
r2~2) *w2-8*rl*w3)+2*r3~3* (-8*wl+r2*w3)+2*r3* (8* (16+rl"2-r2~2) * . . 
wl+r2* (16*rl*w2+rl~2*w3+(-48+r2"2) *w3) ) ) ; 

JH23=16* ( (-256+rl~4+2*rl~2*r2"2+r2~4-32*rl*r2*r3+96*r3~2-r3"4) *wl+ . . 
2* (4*r2* (16+rl~2+r2~2)*w3-12*r2*r3"2*w3+r3~3* (8*w2+rl*w3) +r3* . . . 
(8* (-16+rl~2-r2~2) *w2+rl* (-48+rl~2+r2~2) *w3) ) ) ; 

JH33=-32* (rl"3* (-4*wl+r3*w2)+rl* (-4* (16+r2"2-3*r3~2) *wl+r3* (-48+ . . . 
r2~2+r3~2) *w2)+rl~2* (r2*r3*wl+4*r2*w2+16*r3*w3) -r2* (r3"3*wl+4* . . 
( 16+r2~2) *w2-12*r3~2*w2+r3* (-48*wl+r2~2*wl+16*r2*w3) ) ) ; 
JH=l/JHden*[JHll  JH12  JH13; 

JH21  JH22  JH23 ; 

JH31  JH32  JH33] ; 

“/.“/.ORIGINAL  EQUATIONS 

“/.Fill  the  n  x  n  block  with  non  zero  elements  (diagonal  block) 
Jacobian( (42*n-35) : (42*n-33) , (42*n-41) : (42*n-39))=. . . 
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dt/2*tilde(w)+eye(3)  ;°/„delPl/q 
JacobianC  C42*n-32) : C42*n-30) , (42*n-41) : (42*n-39))=. . . 

dt/2*tilde(w)-eye(3)  ;0/„delP2/q 
JacobianC  C42*n-23) : (42*n-21) , (42*n-41) : (42*n-39))=. . . 

-dx/2*tilde (k) -eye (3) ; %delFl/q 
JacobianC  C42*n-20) : (42*n-18) , (42*n-41) : (42*n-39))=. . . 

-dx/2*tilde  (k)  +eye  (3) ;  °/„delF2/ q 
JacobianC  C42*n-41) : (42*n-39) , (42*n-41) : (42*n-39))=. . . 

dx*dt/4*SIMS . edf *C*tilde(w) ;%delq/q-with  damping  factor 
JacobianC  C42*n-35) : (42*n-33) , C42*n-38) : (42*n-36))=. . . 
-dt/2*JA;°/„delPl/r 

JacobianC  C42*n-32) : C42*n-30) , C42*n-38) : (42*n-36))=. . . 
-dt/2*JA;°/0delP2/r 

JacobianC  C42*n-29) : C42*n-27) , C42*n-38) : (42*n-36))=. . . 

dt/2* ( JB-JC)+eye  (3)  ;°/„delHl/r 
JacobianC (42*n-26) : C42*n-24) , (42*n-38) : (42*n-36))=. . . 

dt/2*(JB-JC)  -eye  (3)  ;°/0delH2/r 
JacobianC  C42*n-23) : (42*n-21) , C42*n-38) : (42*n-36))=. . . 
dx/2*JD;°/„delFl/r 

JacobianC  C42*n-20) : (42*n-18) , C42*n-38) : (42*n-36))=. . . 
dx/2*JD;°/0delF2/r 

JacobianC  C42*n-17) : (42*n-15) , C42*n-38) : (42*n-36))=. . . 

dx/2* ( JF- JE)  -eye  (3)  ;°/„delMl/r 
JacobianC (42*n-14) : (42*n-12) , (42*n-38) : (42*n-36))=. . . 

dx/2*  ( JF- JE)  +eye  (3)  ;°/0delM2/r 
JacobianC  C42*n-41) : C42*n-39) , C42*n-38) : (42*n-36))=. . . 

dx*dt/4*SIMS .  edf *JG;°/„delq/r-with  damping  factor 
JacobianC  C42*n-38) : C42*n-36) , C42*n-38) : (42*n-36))=. . . 

dx*dt/4*SIMS .  edm*JH;°/„delpsi/r-with  damping  factor 
JacobianC (42*n-32)  :  C42*n-30) ,  C42*n-35)  :  (42*n-33))=eye(3)  ;0/„delP2/q3 
JacobianC C42*n-26)  :  C42*n-24) ,  C42*n-32)  :  C42*n-30))=eye(3)  ;0/„delH2/r3 
JacobianC C42*n-41) : C42*n-39) , C42*n-29) : (42*n-27))=. . . 

-dx/4*eye (3) -dx*dt/8*tilde  CW) ;%delq/P2-dynamic 
JacobianC  C42*n-38) : C42*n-36) , C42*n-29) : C42*n-27))  =  . . . 

-dx*dt/8*tilde (V) ;%delpsi/P2 
JacobianC C42*n-ll) : C42*n-9) , C42*n-29) : C42*n-27))=. . . 

l/2*eye(3)  ;°/0delV/P2-dynamic 
JacobianC C42*n-38) : C42*n-36) , C42*n-26) : (42*n-24))=. . . 

-dx/4*eye (3) -dx*dt/8*tilde  CW) ;%delpsi/H2-dynamic 
JacobianC C42*n-8) : C42*n-6) , C42*n-26) : C42*n-24))=. . . 
l/2*eye(3)  ;°/0delW/H2-dynamic 

JacobianC C42*n-20) : C42*n-18) , C42*n-23) : (42*n-21))=-eye(3) ;7„delF2/q2 
JacobianC C42*n-14)  :  C42*n-12) ,  C42*n-20)  :  C42*n-18))=-eye(3)  ;0/„delM2/r2 
JacobianC C42*n-41) : C42*n-39) , C42*n-17) : (42*n-15))=. . . 

-dt/4*eye (3)+dx*dt/8*tilde  CK) ;%delq/Fl 
JacobianC C42*n-38) : C42*n-36) , C42*n-17) : C42*n-15))=. . . 
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dx*dt/8*tilde  (el+G)  ;°/„delpsi/Fl 
JacobianC  C42*n-5) : (42*n-3) , (42*n-17) : (42*n-15))=. . . 

-l/2*eye(3)  ;°/„delG/Fl 

JacobianC  C42*n-38) : C42*n-36) , (42*n-14) : (42*n-12))=. . . 

-dt/4*eye (3)+dx*dt/8*tilde (K) ;%delpsi/Ml 
JacobianC  C42*n-2) : C42*n) , (42*n-14) : (42*n-12))=. . . 

-l/2*eye(3)  ;°/„delK/Ml 

JacobianC  C42*n-41) : C42*n-39) , (42*n-ll) : (42*n-9))=. . . 

-SIMS . edf *dx*dt/4;  °/0delq/delV-with  damping  factor 
JacobianC  C42*n-38) : (42*n-36) , (42*n-ll) : (42*n-9))=. . . 
dx*dt/8*tilde  (P1+P2)  ;°/„delpsi/V 

JacobianC  C42*n-35)  :  C42*n-33) ,  (42*n-ll)  :  C42*n-9) )=-dt/2*C’  ;°/„delPl/V 
JacobianC  C42*n-32)  :  C42*n-30) ,  (42*n-ll)  :  (42*n-9))=-dt/2*C’  ;0/„delP2/V 
JacobianC (42*n-ll) : (42*n-9) , (42*n-ll) : C42*n-9) )=-mass*eye(3) ;%delV/V 
JacobianC C42*n-8) : C42*n-6) , (42*n-ll) : (42*n-9))=. . . 

-mass*tilde (r_cg) ;%delW/V 

JacobianC (42*n-41) : C42*n-39) , C42*n-8) : C42*n-6))=. . . 

dx*dt/8*tilde (P1+P2) ;%delq/W 
JacobianC C42*n-38) : C42*n-36) , C42*n-8) : C42*n-6))=. . . 

dx*dt/8*tilde  (H1+H2)  -dx*dt/4*SIMS .  edm;°/0delpsi/W-with  damping  factor 
JacobianC C42*n-29) : C42*n-27) , C42*n-8) : C42*n-6) )=-dt/2*invCHH) ;%delHl/W 
JacobianC C42*n-26) : C42*n-24) , C42*n-8) : C42*n-6) )=-dt/2*invCHH) ;%delH2/W 
JacobianC C42*n-ll) : C42*n-9) , C42*n-8) : C42*n-6))=. . . 
mass*tilde  (r_cg)  ;°/„delV/W 

JacobianC C42*n-8) : C42*n-6) , C42*n-8) : C42*n-6) )=-I ;%delW/W 
JacobianC  C42*n-38) : C42*n-36) , C42*n-5) : C42*n-3))  =  . . . 

-dx*dt/8*tilde (F1+F2) ; ”/0delpsi/G 

JacobianC C42*n-23)  :  C42*n-21) ,  C42*n-5)  :  C42*n-3) )=dx/2*C’  ;"/„delFl/G 
JacobianC C42*n-20)  :  C42*n-18) ,  C42*n-5)  :  C42*n-3) )=dx/2*C’  ;”/„delF2/G 
JacobianC  C42*n-5) : C42*n-3) , C42*n-5) : C42*n-3) )=A;%delG/G 
JacobianC C42*n-2) : C42*n) , (42*n-5) : C42*n-3))=B’ ;%delK/G 
JacobianC  C42*n-41) : C42*n-39) , C42*n-2) : C42*n))  =  . . . 

-dx*dt/8*tilde (F1+F2) ; %delq/K 
JacobianC  C42*n-38) : C42*n-36) , C42*n-2) : C42*n) )=. . . 

-dx*dt/8*tilde (M1+M2) ; °/„delpsi/K 

JacobianC C42*n-17)  :  C42*n-15) ,  C42*n-2)  :  C42*n) )=dx/2*inv(HH)  ;°/,delMl/K 
JacobianC C42*n-14)  :  C42*n-12) ,  C42*n-2)  :  C42*n) )=dx/2*inv(HH)  ;0/,delM2/K 
JacobianC C42*n-5) : C42*n-3) , (42*n-2) : C42*n))=B;%delG/K 
JacobianC C42*n-2)  :  C42*n) ,  (42*n-2)  :  C42*n))=D;°/„delK/K 

“/Contributions  to  off  diagonal  blocks 
if  n  >  1 

“/The  n  x  Cn-1)  block 

JacobianC (42*n-23) : C42*n-21) , (42*Cn-l)-23) : (42*(n-l)-21))=. . . 
eye C3) ; ZdelFl Cn) /q2 Cn-1) , ie  q4 

JacobianC (42*n-17) : (42*n-15) , (42*Cn-l)-20) : C42*Cn-l)-18))=. . . 
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eye  (3)  ;  °/0delMl  (n) /r2(n-l) ,  ie  r4 

end 

if  n  <  SIMS.num_x 

°/0The  n  x  (n+1)  block 

Jacobian((42*n-41) : (42*n-39) , (42*(n+l)-17) : (42*(n+l)-15))=. . . 

dt/4*eye(3)+dx*dt/8*tilde(K)  ;°/0delq(n)/F(n+l)  ,  ie  F2 
Jacobian ( (42*n-38) : (42*n-36) , (42*(n+l)-17) : (42*(n+l)-15))=. . . 

dx*dt/8*tilde (el+G)  ; °/0delpsi  (n) /F (n+1) 

Jacobian( (42*n-5) : (42*n-3) , (42* (n+1) -17) : (42* (n+l)-15) )=. . . 
-l/2*eye(3)  ;°/„delG(n)/F(n+l) 

Jacobian( (42*n-38) : (42*n-36) , (42*(n+l)-14) : (42*(n+l)-12))=. . . 

dt/4*eye(3)+dx*dt/8*tilde(K)  ;°/0delpsi(n)/M(n+l) ,  ie  M2 
Jacobian( (42*n-2) : (42*n) , (42* (n+1) -14) : (42*(n+l)-12))=. . . 
-l/2*eye (3)  ;°/„delK(n)/M(n+l) 

end 


end 

u- 


■n 


D.10  Milenkovic.m 

This  file  is  used  to  evaluate  the  direction  cosine  matrix  (CBb)  and  the  rotation 
matrix  ( HBb )  using  Milenkovic  parameters  ( ps/b )•  It  can  be  modified  for  postprocess¬ 
ing  to  evaluate  Euler  rotations  as  well. 


11 - 11 

function  [H,C] =Milenkovic (r) ; 

°/0Weiner-Milenkovic  Parameters  for  Rotations 
r_bar=2-l/8*r ’ *r ; 

H=( (2*r_bar+l/2*r J  *r) *eye (3) -2*tilde (r)  +  l/2*tilde (r) *tilde (r) ) / (4-r_bar) ~2 ; 
C=H*inv(H) J ; 

1  °/0For  Euler  angle  recovery 
1  Theta=arccos(C(3,3)) ; 

1  Psi=arcsin(C(3 , 1) /sin (Theta) ) ; 

1  Phi=arcsin(C(l ,3) /sin (Theta) ) ; 


D.ll  Tilde,  m 

The  tilde  function  is  used  to  perform  the  cross  product  operator,  (~),  by  accept¬ 
ing  a  vector  and  returning  its  measure  numbers  as  a  skew  symmetric  matrix. 
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7.7. 


7.7. - 

function  T=tilde(X); 

7.Accepts  3x1  vector  X  and  returns  a  skew  symmetric  3x3  matrix  T 
T=  [0  -X(3)  X(2) ;X(3)  0  -X(l);-X(2)  X(l)  0]; 


D.12  ImportStatic.m 

This  is  a  sample  file  used  for  postprocessing  steady-state  data.  Ultimately,  a 
different  file  was  used  for  each  individual  problem,  but  most  follow  this  basic  guideline. 


7.7. - 7.7. 

7.  Post  processor  for  static  problems 
7.  clear  ;clc; 
global  SIMS 

7.  Import  from  dat  files  for  postprocessing 
XSt at ic=dlmread( ’XStatic . dat ’ , ’ \t ’ ) ; 

7.  XStatic=dlmread( ’72in20elemtranslxl000XStatic . dat ’ , ’ \t ’ ) ; 

SIMS . num_x=length(XStatic ( : , 1) ) /42 ;  Taperrod24 
SIMS . dx=GE0M . length/SIMS . num_x ; 

SIMS .  num_t=l ;  7»temporarily 
Simparams 

7.  Steady  Analysis  Results 

CentroidO(l)=SIMS.dx/2;  Edges0(l)=0;  for  n=l : SIMS .num_x; 

7.  Properties  in  middle  of  nth  elements  (centroid) 
qbar ( : ,n)=XStatic ( (42*n-41) : (42*n-39) , 1) ; 
rbar ( : ,n)=XStatic ( (42*n-38) : (42*n-36) , 1) ; 

Vbar ( : ,n)=XStatic ( (42*n-ll) : (42*n-9) , 1) ; 

Wbar ( : ,n)=XStatic ( (42*n-8) : (42*n-6) , 1) ; 

Gbar ( : ,n)=XStatic ( (42*n-5) : (42*n-3) , 1) ; 

Kbar ( : ,n)=XStatic((42*n-2) : (42*n) , l)-GE0M.k_b( : ,n) ; 

Pbar ( : ,n)=XStatic((42*n-29) : (42*n-27) ,1) ; 

Hbar ( : ,n)=XStatic((42*n-26) : (42*n-24) ,1) ; 
if  n  ==  SIMS.num_x, 

Fbar ( : ,n) =1/2* (BC . F2_B0 ( : , SIMS . num_x) + . . . 

XStatic ( (42*n-17) : (42*n-15) , 1) ) ; 

Mbar ( : ,n) =1/2* (BC . M2_B0 ( : , SIMS . num_x) + . . . 

XStatic ((42*n-14) : (42*n-12) , 1) ) ; 

else 

Fbar ( : ,n)=l/2*(XStatic((42*(n+l)-17) : (42*(n+l)-15) , 1)+. . . 

XStatic ( (42*n-17) : (42*n-15) , 1) ) ; 

Mbar ( : ,n)=l/2*(XStatic((42*(n+l)-14) : (42*(n+l)-12) , 1)+. . . 

XStatic ((42*n-14) : (42*n-12) , 1) ) ; 
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end 

if  n  <  SIMS.num_x; 

CentroidO (n+1) =CentroidO (n) +SIMS . dx ; 

end 

7,  Properties  from  1  to  n+1  element  edges 
qhat ( : ,n+l)=XStatic((42*n-23) : (42*n-21) ,1) ; 
rhat ( : ,n+l)=XStatic ( (42*n-20) : (42*n-18) , 1) ; 

Fhat ( : ,n)=XStatic((42*n-17) : (42*n-15) ,1) ; 

Mhat ( : ,n)=XStatic((42*n-14) : (42*n-12) ,1) ; 
EdgesO(n+l)=EdgesO(n)+SIMS . dx; 

end 

70Include  Boundary  Conditions 

Fhat ( : ,SIMS.num_x+l)=BC.F2_B0(: ,SIMS.num_x) ; 

Mhat ( : ,SIMS.num_x+l)=BC.M2_B0( : ,SIMS.num_x) ; 
qhat ( : , 1)=BC . q4_b0 ( : ,1) ;  rhat(: , 1)=BC . r4_b0( : ,1) ; 

7o  Display  static  results  on  screen 
Fhat  Mhat  qhat  rhat 

figure(l)  title (’ Static  Resultants’)  subplot  211; 
plot (CentroidO , Fbar ’) ;hold  on  plot (EdgesO ,Fhat ’ ) ;hold  off 
xlabel(’X  Location  (inches)’);  ylabel(’ Force  (Mlb) ’ ) ; 
title (’ Internal  Forces  (Positive  Tension)’); 

subplot  212;  plot (CentroidO , Mbar ’); hold  on  plot (EdgesO , Mhat ’) ;hold 
off  xlabel(’X  Location  (inches)’);  ylabel(’ Moment  (in-Mlb)’); 
title (’ Internal  Moments’); 

figure(2)  title (’ Static  Deformation’)  subplot  211 
plot (CentroidO , qbar ’) ;hold  on  plot (EdgesO , qhat ’) ;hold  off 
xlabel(’X  Location  (inches)’);  ylabel(’ Deformation  (inches)’); 
title ( ’Deformation’ ) ; 

subplot  212  plot (CentroidO, rbar’) ;hold  on  plot (EdgesO, rhat’) ;hold 
off  xlabel(’X  Location  (inches)’);  ylabel(’ Deformation  (rad)’); 
title ( ’Rotation’ ) ; 

figure(3)  title (’ Static  Strains’);  subplot  211 
plot (CentroidO , Gbar ’) ;  xlabel(’X  Location  (inches)’); 
ylabel(’Force  Strain  (-)’);  title(’Force  Strains’); 

subplot  212  plot (CentroidO, Kbar’) ;  xlabel(’X  Location  (inches)’); 
ylabel(’ Moment  Strain  (-)’);  title (’Moment  Strains’); 

figure(4)  subplot  211  plot (CentroidO ,Vbar’ ) ;  xlabel(’X  Location 
(inches)’);  ylabel ( ’Velocity  (in/ms)’);  title (’ Initial  Velocity 
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Profile’ ) ; 


subplot  212  plot (CentroidO ’ , Wbar) ;  xlabel(’X  Location  (inches)’); 
ylabel(’ Angular  velocity  (rad/ms)’);  title (’ Initial  Angular 
Velocity  Profile’); 


D.13  ImportDynamic.m 

This  is  a  sample  file  used  to  postprocess  time  accurate  data.  As  with  steady- 
state  problems,  individual  scenarios  require  specialized  files  for  postprocessing,  but 
generally  follow  these  guidelines. 


7.7. - 7.7. 

7.  Post  processor  fordynamic  problems'  use  after  ImportStatic 
global  SIMS 

7.  Import  from  dat  files  for  postprocessing 
XDynamic=dlmread( ’ dynamic . dat ’ , ’ \t  ’ ) ; 

7.  XDynamic=dlmread( ’72in20elemtranslxl000dynamic . dat ’ , ’ \t ’ ) ; 

SIMS . num_t=length(XDynamic (1 , : ) ) ; 

SIMS . t ime=XDynamic (42*SIMS . num_x+2 , SIMS . num_t ) ; 

SIMS . dt=SIMS .time/SIMS . num_t ;  Simparams 

7.  Edge  times 

time(l)=0;  time (2: (SIMS.num_t+l))=XDynamic(42*SIMS.num_x+2, : ) ; 


7.Force  Array 
for  t=l : SIMS .num_t 

for  n=l : SIMS . num_x 

Fhat3(n, l)=XStatic(42*n-15, 1) ; 

Fhat3 (n , t+1) =XDynamic (42*n-15 , t) ; 

end 

Fhat3(SIMS .num_x+l , t)=BC . F2_B(3, SIMS .num_x, t) ; 

end 

7»Force  Array 
for  t=l : SIMS .num_t 

for  n=l : SIMS . num_x 

Fhatl (n, l)=XStatic (42*n-17 , 1) ; 

Fhat 1 (n , t+1) =XDynamic (42*n-17 , t) ; 

end 

Fhatl (SIMS .num_x+l , t)=BC . F2_B(1 , SIMS .num_x, t) ; 
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end 


/(Moment  Array 
for  t=l : SIMS .num_t 

for  n=l : SIMS . num_x 

Mhatl(n,l)=XStatic(42*n-14,l) ; 

Mhat 1 (n , t+1) =XDynamic (42*n-14 , t) ; 

end 

Mhat 1 (SIMS .num_x+l , t)=BC . M2_B(1 , SIMS .num_x, t) ; 

end 


%  Tip  Displacement 
figure (5) 

deflect ion ( : , l)=XStatic ( (42*SIMS .num_x-23) : (42*SIMS .num_x-21) , 1) ; 
deflection( : ,2: (SIMS.num_t+l))=. . . 

XDynamic((42*SIMS.num_x-23) : (42*SIMS .num_x-21) , : ) ; 
plot (time ,def lection(l , : ) , ’rx’ ) ; title ( ’Tip  Deflection’ ) ; 

°/„Tip  velocity 
figure (6) 

velocity ( : , l)=XStatic ( (42*SIMS . num_x-ll) : (42*SIMS .num_x-9) , 1) ; 
velocity( : ,2: (SIMS.num_t+l))=. . . 

XDynamic((42*SIMS.num_x-ll) : (42*SIMS.num_x-9) , : ) ; 
plot (time .velocity) ; legend ( ’x’ , ’y ’ , ’ z ’ ) ; title ( ’Tip  Velocity’ ) 

°/„Tip  slope 
figure (7) 

slope ( : , l)=XStatic ( (42*SIMS .num_x-20) : (42*SIMS .num_x-18) , 1) ; 
slope (: ,2: (SIMS.num_t+l))=. . . 

XDynamic((42*SIMS.num_x-20) : (42*SIMS .num_x-18) , : ) ; 
plot (time , slope) ; legend ( ’pi ’ , ’p2 ’ , ’p3 ’ ) ; title ( ’Tip  Slope ’ ) 

%Root  Moment 

figure (8) ;  rootmoment ( : , l)=XStatic (28:30,1) ; 

rootmoment ( : , 2 : (SIMS ,num_t+l) )=XDynamic(28 : 30 , : ) ; 

plot (time .rootmoment) ; legend ( ’x’ , ’y ’ , ’ z ’ ) ; title ( ’Root  moment ’ ) 

°/„Tip  momentum 
figure (9) 

momentum( : , l)=XStatic((42*SIMS.num_x-29) : (42*SIMS .num_x-24) , 1) ; 
momentum( : ,2: (SIMS.num_t+l))=. . . 

XDynamic ( (42*SIMS . num_x-29) : (42*SIMS . num_x-24) , : ) ; 
plot (time .momentum) ;  legend ( ’x’ , ’y ’ , ’z ’ , ’rx’ , ’ry ’ , ’ rz ’ ) ; title ( ’Tip 
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Momentum’ ) 


%Root  Forces 

figure (11)  rf orces ( : , l)=XStatic( (42*1-17) : (42*1-15) ,1) ; 
rf orces ( : ,2: (SIMS ,num_t+l) )=XDynamic ( (42*1-17) : (42*1-15) , :) ; 
plot (time , rf orces) ; legend ( ’ x ’ , ’y ’ , ’z ’ ) ; title ( ’ Root  forces J ) 

%  Frequency  Response 
sampletime=SIMS .  dt ;  7»nis 
Fs=1000/sampletime ;  7.Hz 

[Pxx,F] =pwelch(def lection(l ,:),[]»[] ,8192, Fs) ;  f igure(12) 
semilogx(F,Pxx) ;  xlabel( ’Frequency  (Hz)’);  ylabel (’ Signal 
Power(dB)’);  title (’Power  Spectral  Density’); 

[r , c] =f ind(Pxx==max(Pxx) ) ;  Fpeak=F (r , c) ; 

figure (13)  surf (time ,EdgesO ,Fhatl) ; 

xlabel ( ’ time ’ ) ; ylabel ( ’ space ’ ) jzlabel ( ’force ’ ) ; 
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